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épargnez votre clavier! 



Retrouvez sur cette 
disquette tous les 
listings de ce numéro. 


_ 



BON DE COMMANDE 

Je commande la disquette 
(120 F port compris) 

□ H-S Micro-Mag n°2 

Profitez des disquettes hors-série 
encore disponibles de nos anciens 
numéros (120 F port compris). 


□ H-S n°2 

□ H-S n°6 

□ H-S n°7 


□ H-S n°10 

□ Compilation 
R.S.X. 


Nom : . 

Prénom 

Adresse 


Règlement (chèque bancaire, postal ou mandat) à adresser à 

Micro Mag, service diffusion, 5/7, rue 
de l'Amiral Courbet 94160 Saint-Mandé. 














































D 'une structure iden¬ 
tique à la précédente 
version (Micro-Mag 
n°l), Amsaisie V.2 bénéficie 
de quelques améliorations 
qui fiabilisent cette fois tota¬ 
lement la saisie hexadécimale 
tout en simplifiant les 
manœuvres de corrections: 

- vérification et prise en 
compte par la somme de 
contrôle, de l'ordre des datas 
dans chaque ligne saisie; 

- déplacement du curseur 
autorisé dans la ligne sans 
destruction des données. Il 
est désormais possible de 
revenir par la touche fléchée 
gauche sur une valeur à cor¬ 
riger, puis de réafficher la 
ligne de codes par la touche 
fléchée droite. A signaler que 
cette dernière permet d'en¬ 
trer rapidement une ligne de 
zéro. 

- Réaffichage automatique 
d'une ligne erronée, afin de 
permettre sa correction de la 
façon ci-dessus évoquée. 

NB. Possesseurs d'Amsaisie, 
examinez attentivement ce 


nouveau listing afin d'effec¬ 
tuer sur votre ancienne ver¬ 
sion les modifications néces¬ 
saires. 

Rappelons à l'attention de 
ceux qui l'ignorent, qu'Am¬ 
saisie V.2 permet la saisie 
aisée de codes hexadécimaux 
présents dans nos colonnes 
sous la forme: adresse, suite 
de 8 codes, somme de contrô¬ 
le. 

Mode d'emploi 

Après lancement, spécifiez en 
hexadécimal (sans le préfixe 
"&") l'adresse de début d'im¬ 
plantation du langage machi¬ 
ne. Celle-ci s'affiche suivie de 
":" et d'un curseur clignotant. 
Entrez la série de huit codes 
sans vous préoccuper des 
espaces et sans valider par 
RETURN (validation automa¬ 
tique). En fin de ligne et à l'af¬ 
fichage de entrez la 
somme de contrôle corres¬ 
pondant à la ligne saisie. En 
l'absence d'erreur, l'adresse 
suivante s'affiche, etc. Dans le 


cas contraire, un signal sono¬ 
re et un message vous signale 
une bévue. Effectuez alors la 
correction dans la ligne auto¬ 
matiquement réaffichée. En 
cours de saisie, la touche DEL 
est opérationnelle. L'appui 
sur "S" réalise la sauvegarde 
du langage machine après 
spécification du nom du 
fichier. Toutefois, deux solu¬ 
tions s'offrent à vous: 

- vous êtes fou et venez de 
saisir en une seule fois la 
totalité des codes hexadéci¬ 
maux (très nombreux dans la 
plupart des cas). Rien de plus 
simple: après l'entrée de la 
dernière somme de contrôle 
et l'affichage de l'adresse sui¬ 
vante, appuyez sur "S", préci¬ 
sez le nom du fichier et vali¬ 
dez par RETURN ou ENTER. 

- vous êtes raisonnable et 
désirez morceler votre saisie. 
Au moment de stopper 
momentanément votre frappe 
pour la poursuivre ultérieu¬ 
rement, appuyez sur "S" après 
l’affichage de l'adresse sui¬ 
vante et attribuez un numéro 
d'ordre à votre nom de 
fichier (exemple: PAC1). A la 
fin de la sauvegarde, l'adres¬ 
se suivante déjà citée se réaf¬ 
fiche; notez-la. Elle sera 
«l'adresse de début» qu'il 
conviendra de spécifier lors 


de la reprise de votre travail 
(PAC2). Créez de la sorte une 
suite de fichiers binaires 
(PAC1, PAC2, PAC3, etc.). 
Finalement, chargez à la suite 
tous ces fichiers après un 
MEMORY inférieur à l'adres¬ 
se d'implantation (adresse -1) 
et effectuez une sauvegarde 
totale et définitive par la 
commande de type: 

SAVE "nom de fichier", b, 
adresse de début, longueur 
Le nom du fichier et la valeur 
des paramètres sont toujours 
précisés dans le mode d'em¬ 
ploi des programmes publiés. 

Exemple 

Prenons l'exemple d'un pro¬ 
gramme binaire appelé PAC- 
MAN, d'adresse de début 
&A000 et morcelé en trois 
fichiers: PAC1, PAC2, PAC3. 
Pour les réunir en un seul 
d'après la longueur totale 
&BFF indiquée dans le mode 
d'emploi, il faudra lancer le 
programme suivant (ou 
entrer les commandes en 
direct): 

10 MEMORY &A000-1 
20 LOAD "PAC1.BIN" 

30 LOAD "PAC2.BIN" 

40 LOAD "PAC3.BIN" 

50 SAVE"PACMAN", b, &A0 
00, &BFF 

Sined 


10 '. AMSAISIE V.2 par Denis JARRIL C16133 
20 MEMORY Ï<2000:DIM 0* < 18) s MODE 1 s B 1 17221 3 
0RDER 0 : INK 0,0 ï INK 1 ,13 :CLS:PR I NT : 

PRINT” I pour changer l’adresse cou 
rante":PRINT" S pour sauver les don 
nees”:PRINT" Tapez les caractères s 
ans espace ni return (tout se f 

ait automatiquement), 

30 PRINT" Les fléchés servent a J'e C44943 
dition. 

40 PRINTîINPUT" ADRESSE DE DEPART : E40923 
*, A*: D*=A* s IF A*="" THEN 40 
50 A=VAL(”&"+A*) 112733 

60 I=0:A*=HEX*(A,4)î PRINT:PRINT A*j [32003 
C=VAL ( ”!<"+LEFT* ( AI, 2) ) +VAL ( "?<" 
+RIGHT*(A*,2)) 

70 T*="”:WHILE T*=""îCALL &BB 8 A ! T* = [34543 
INKEY*) CALL S<BBBD: WEND: T*=UPPER* ( T* 

) 

80 IF T*=CHR*(242) THEN T*=CHR*(127 [23973 
) 

90 IF T*=CHR*(243) THEN T*=0*(I> [20033 

100 IF T*="I" THEN CLSîRUN [11323 

110 IF T *<>"S" THEN 140 ELSE D = VAL( [ 3244 3 
" 8 <”+D*>:IF D>0 AND A<0 THEN A=A+655 
36 

120 PRINTïPRINTsINPUT” NOM : ",N*s [33943 


IF N $ < )• " " THEN SAVE N*,B , D , A-D +1 
130 GOTO 60 [3903 

140 IF T*OCHR*<127) THEN 160 ELSE C62463 

IF 1=0 THEN 70 ELSE 1 = I-1 sPRINT CHR 
*< 8 >;" " j CHRP< 8 ) j : IF I/2<)I\2 THEN 
PRINT CHR*( 8 );" "5 CHR*(8); 

150 GOTO 70 [3963 

160 IF T * <"0" OR T * >"F " THEN SOUND [2699 3 

7,150,20:GOTO 70 

170 IF T * < " A” AND T*>"9” THEN SOUND [26303 
7,150,20:GOTO 70 

180 PRINT T * ; : IF 1 = 15 THEN PRINT":" [31243 
i ELSE IF I/20IN2 THEN PRINT" "; 

190 0 *(I)= T * C5923 

200 1=1+1:IF I<18 THEN 70 [12663 

210 FOR 1=0 T0 15 STEP 2: X = VAL ( "!<”+ [48973 

0* <I)+0*(1 + 1))îPOKE A,X :A=A+1 :C=C + X 

* ( ( I \2) + 1 ) : NEXT: C = C AND ?<FF 

220 IF C = VAL < "S<" +0* < I ) +0* ( I +1 ) ) THE [24403 

N 60 

230 SOUND 7,50,10s SOUND 7,500,10:A= [90753 
A- 8 : PR INT"ERREUR!":PR INT HEX* < A,4); 

” :"5 : F0R 1 = 0 T0 15 s PRINT 0*( I >; s IF 
I / 2 < )• I \ 2 AND 1015 THEN PRINT" "; 

240 N E X T : P RIN T " :"; : P RIN T 0*(I); s I = I [49033 
+1 : C= VAL ( " & " +LEFT* ( A *, 2 ) ) +VAL ( " S< " +R 
IGHT*(A*,2)): GOTO 70 
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VERIFICATEURS ¥2 



L e saviez-vous? La pré¬ 
sence dans nos listings 
de numéros entre cro¬ 
chets, assure la détec¬ 
tion d'éventuelles erreurs lors 
de la saisie d'un programme 
Basic. 

Tapez minutieusement et 
sauvegardez le listing vérifi¬ 
cateur relatif à votre machine 


(464, 664 ou 6128), conser- 
vez-le précieusement et lan- 
cez-le avant toute frappe ou 
vérification de listing; les indi¬ 
cations nécessaires sont 
incluses. 

Chaque somme affichée 
devra rigoureusement corres¬ 
pondre à celle figurant dans 
nos colonnes. 


Nota : les deux traits verti¬ 
caux présents en ligne 80 et 
90, correspondent à une 
barre verticale sur un clavier 
QWERTY, ou à un "ù" sur cla¬ 
vier AZERTY. 

Ces caractères - CHR$(124) - 
s'obtiennent par appui simul¬ 
tané sur SHIFT/traits verti¬ 
caux. 


10 REM Vérificateur 464 
20 MEMORY &A4FF 

30 FOR a‘/.=!(A500 T0 &A607 

40 READ bytef 

50 P0KE a'/., VAL ( "!<" +bytet ) 

60 NEXT 

70 CL S :L0CATE 5,1 s PRINT CHRf(24) 

11 Vérificateur V.2 464 installe 
"CHRf(24) ! PRINTi PRINT 11 Chaque val 
idation affiche désormais une so 
mise de contr ol e. 11 : PR INT 

80 PRINT"!CHECK,2 ! liste le pro 
gramme avec les somm 

es de contrôle.“iPR I NT :PR1NT"! CH 
ECK,8 ! imprime le programme ave 
c les sommes de contro 

le, "iPRINT:PRINT" "CHRf(24) " 
Taper ou charger un programme. " 
CHRf(24) 

90 CALL LA500:I ON 


10 REM Vérificateur 664 

20 MEMORY S<A4FF 

30 FOR aX=îeA500 T0 &A607 

40 READ bytef 

50 POK'E aX, VAL ( "î< " +bytef ) 

60 NEXT 

70 CLS:L0CATE 5,1s PRINT CHRf<24> 
" Vérificateur V.2 664 installe 
"CHRf (24 ) : PRINT: PR INT 11 Ch a que val 
idation affiche desor mais une so 
mme de control e. 11 : PRINT 
30 PR INT"!CHECK',2 : liste le pro 
gramme avec les somm 

es de contrôle.PRINT:PRINT"fCH 
ECK,8 : imprime le programme ave 
c les sommes de contre 

le.“:PRINT:PRINT" "CHRf(24)“ 
Taper ou charger un programme. “ 
CHRf(24) 

90 CALL S;A500 : ! ON 


100 

NEW 


100 

NEW 

110 

DATA 

21,09,a5,01,Od,a5,c3 , d 1 

110 

DATA 

120 

DATA 

bc,00,00,00,00,18,a5,c3 

120 

DATA 

130 

DATA 

2a,a5,c3,2f,a5,c3,43,a5 

130 

DATA 

140 

DATA 

4f,ce,4f,46,c6,43,48,45 

140 

DATA 

150 

DATA 

4 3,c b,00,00,c f,98,a a , c 3 

1 50 

DATA 

160 

DATA 

a8,a5,21,27,a5,18,03,21 

160 

DATA 

170 

DATA 

24 , a5,28,06 , c d , 00 , b 9 , c 3 

170 

DATA 

180 

DATA 

06,dd,1I,3a,bd,01,03,00 

180 

DATA 

190 

DATA 

ed,b0,c9,4 f,cd,00,b9,Od 

190 

DATA 

200 

DATA 

28,08,Od,20,ea,d d,7e,02 

200 

DATA 

210 

DATA 

18,04,7b,11,01,00,cd,a2 

210 

DATA 

220 

DATA 

cl,cd,a3,e7,e5,4e,23,46 

220 

DATA 

230 

DATA 

23,5e,23,56,el,78,b 1,c8 

230 

DATA 

240 

DATA 

cd,3c,c4,e5,09,e3,cd,63 

240 

DATA 

250 

DATA 

el ,21 ,a4,ac,cd,7a,a5,el 

250 

DATA 

260 

DATA 

18,e2,e5,cd,ba,a5,e3,cd 

260 

DATA 

270 

DATA 

9S,a5,cd,96,f2,e3,cd,f6 

270 

DATA 

280 

DATA 

a5,cd,4e,c3,el,7e,a7,c8 

280 

DATA 

290 

DATA 

cd,98,a5,cd,4e,c3,18,f 5 

290 

DATA 

300 

DATA 

3a,24,ac,d6,08,47,7e,a7 

300 

DATA 

310 

DATA 

c8,cd,45,el,23,10,f7,c9 

310 

DATA 

320 

DATA 

cd,24,a5,f5,c5,d5,e5,cd 

320 

DATA 

330 

DATA 

ba,a5,cd,f6,a5,el,dl,cl 

330 

DATA 

340 

DATA 

fl,c9,eb,lb,af,47,67,6f 

340 

DATA 

350 

DATA 

2 f,32,23,a5,13,1 a,d6,30 

350 

DATA 

360 

DATA 

38,04,fe,0a,38,f6,la,13 

360 

DATA 

370 

DATA 

a7,c8,4f,3a,23,a5,al,fe 

370 

DATA 

380 

DATA 

20,28, f3,79,fe,22,20,07 

380 

DATA 

390 

DATA 

aa,23,a5,2f,32,23,a5,3a 

390 

DATA 

400 

DATA 

23,a5,a7,79,c4,8a,ff,4 f 

400 

DATA 

410 

DATA 

a d , 0 7,6 f , 0 9,1 8 , d 8,3 e , 2 0 

410 

DATA 

420 

DATA 

cd , 5c , c3,3e ,5b ,cd ,5c ,r.3 

420 

DATA 

430 

DATA 

cd,79,ee,3e,5d,c3,5c,c3 

4 30 

DATA 


10 REM Vérificateur 6128 

20 MEMORY RA4FF 

30 FOR aX=«>A500 T0 &A607 

40 READ bytef 

50 P0KE aX.VALCW'+bytef) 

60 NEXT 

70 CLS:L0CATE 4 , 1 : P RIM T CHRf(24) 
" Vérificateur V.2 6128 installe 
"CHRf(24): PR INT:PR INT"Chaque va 
lidation affiche désormais une s 
omme de cont rol e. 11 : PRINT 
80 PRINT"!CHECK,2 : liste le pro 
gramme avec les somm 

es de contrôle.":PRINT:PRINT"! CH 
ECK,8 : imprime le-programme ave 
c les sommes de contro 

1e,":PRINT:PRINT" "CHRf(24)” T 
aper ou charger un programme. “C 
HRf(24) 

90 CALL !<A500 : ! ON 



100 

NEW 


dl 

110 

DATA 

21,0 9,a 5,01,0 d,a 5,c 3 , d 1 

i “ 

i c 3 

120 

DATA 

bc,00,.00,00,00,18,a5,c3 

i a 5 

130 

DATA 

2a,a5,c3,2f,a5,c3,43,a5 

i 4 5 

140 

DATA 

4f,ce,4f ,46,c6,43,4S,45 

c 3 

150 

DATA 

43 , cb , 00,00,c f,02,ac,c3 

21 

160 

DATA 

a 8,a 5,21,2 7,a 5,18,0a,21 

i c 3 

170 

DATA 

24,a5,28,06,cd,00,b9,c3 

00 

180 

DATA 

49,cb,11,5e,bd,01,03,00 

Od 

190 

DATA 

ed,bO,c 9,4f,cd,00,b 9,Od 

02 

200 

DATA 

28,08,Od,20,ea,rid,7e,02 

a9 

210 

DATA 

18,04,7b, 11 ,01,00 , cd , a6 

46 

220 

DATA 

cl,cd,64,e3,e5,4e,23,46 

c 8 

230 

DATA 

23,5e,23,56,el,7 8,b 1,c8 

59 

240 

DATA 

cd,72,c4,e5,09,e3,cd,54 

e 1 

250 

DATA 

e2,21 ,8a,ac,cd,7a,a5,el 

c d 

260' 

DATA 

18,e2,e5,cd,ba,a5,e3,cd 

f 6 

270 

DATA 

98,a5,cd,53,f3,e3,cd,f6 

c 3 

230 

DATA 

a5,cd,98,c3,el,7e,a7,c8 

f 5 

290 

DATA 

cd,98,a5,cd,98,c3,18,f5 

a7 

300 

DATA 

3a,09, ac,06,08,47,7e,a7 

c9 

310 

DATA 

c8,cd,1d,e2,23,10,f7,c9 

cd 

320 

DATA 

cd,24,a5,f5,c5,d5,e5,cd 

cl 

330 

DATA 

ba,a5,cd,f6,a5,el,dl,cl 

6f 

340 

DATA 

fl,c9,eb,lb,af,47,67,6f 

30 

350 

DATA 

2f ,'32,23, a5,13,1 a , d6,30 

13 

360 

DATA 

38,04,fe,0a,38,f6,la,13 

f e 

370 

DATA 

a7,c8,4f,3a,23,a5,al,fe 

07 

380 . 

DATA 

20,23,f 3,79,fe,22,20,07 

3 a 

390 

DATA 

3a,23,a5,2f,32,23,a5,3a 

4 f 

400 

DATA 

23,a5,a7,79,c 4,ab,f f,4 f 

20 

410 

DATA 

ad,07,6f,09,18,dS,3e,20 

c 3 

420 

DATA 

cd,aO,c3,3e,5b,cd,aO,c3 

c 3 

430 

DATA 

cd,44,ef,3e,5d,c3,a0,c3 
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Job Lakbaz, solide buveur breton, 
décide un beau jour de mettre de 
Vordre dans sa cave. Gare à la 
casse et aux éléphants roses... 

(sprites et routines). Spécifiez 
9C80 comme adresse de 
début et sauvegardez par «S» 
le fichier binaire sous le nom 
«JOB». Si vous ne souhaitez 
pas saisir en une seule fois la 
totalité des codes, morcelez 
votre travail en créant plu¬ 
sieurs fichiers (Jl, J2, J3, etc.). 
Ces derniers devront ultérieu¬ 
rement être chargés à la suite 
(LOAD"Jl.bin": LOAD"J2.bin" 

: LOAD"J3.bin", etc.) après un 
MEMORY &9C7F et sauve- 


e jeu réclamant beau¬ 
coup de perspicacité 
offre un éditeur per¬ 
mettant de réaliser vos 
propres tableaux. Les règles 
du jeu et le mode d'emploi 
de l'éditeur sont inclus. 

Sauvegarde des 
listings 

Sauvez sous le nom évident 
de JOB, le premier listing 




Basic (programme principal). 
Entrez ensuite par Amsaisie 
V.2 en vous reportant à son 
mode d'emploi, le second lis¬ 
ting de codes hexadécimaux 


gardés ainsi dans un fichier 
unique: 

SAVE "JOB", b, &9C80, &3D0 
Claude Le Moullec 


10 MEMORY &98FF 

20 LOAD "! job",&9C80:DEFINT a-ziGOS 
UB 5400 

30 REM : : : : :t: : : : : : : : : : : : : : : : : : : : : 

40 REM i ! 

50 REM : VARIABLES DE BASE : 

60 REM i ! 

70 REM t : : : : : : : :.. 

80 CALL &BBFF:MODE 0)BORDER 0 
90 INK 0,0s INK 1,26a INK 2,13iINK 3, 
24>INK 4,6:INK 5,16:INK 6,13:INK 7, 


[734] 

[2017] 

[1877] 

[4193 

[2081] 

[4193 

[1877] 

[1633] 

[4536] 


91INK 8,2: INK 9,11: INK 10,14: INK 11 
,8:1 NK 12,4:INK 13,3:INK 14,1,24:IN 
K 15,16,11 

100 DEF FN po(x,y)=&C002+(y-1)#80 + < 
>:-l) *4 

110 DIM 5p <15): FOR h = 0 T0 14:sp(h+l 
)=?<9C80+(h#64} :NEXT 
120 DIM jeu <21,13 )b DIM je(21,13):DI 
M alKll) : DIM echel (20) 

130 TRf=CHR$(22)+CHR$(l) 

140 NR*=CHR* (22) +CHR*<0) 

150 ENV 1,100,3,1:ENT 1,100,2,2 
160 ENV 2,10,-1,2:ENT 2,10,-2,2 
170 ENV 3,5,3,1,1,0,18,6,-3,4:ENT 3 
,5,1,1,10,-1,1,10,1,1,10,-1,1,15,1, 
1 

180 ON BREAK G0SUB 5340 

190 vie=5:fin=0:temp5=l50 :bc=0 

200 GOTO 4950 

210 G0SUB 220iG0T0 280 

220 FOR h=l T0 23 STEP 2 

230 CALL &A00D,FN po<1,h)-2,sp( 6 ) 

240 CALL *cA00D,FN po ( 20 , h )-2 , sp < 6 ) : 

NEXT 

250 FOR h=l T0 20 
260 CALL &A00D,FN po( h ,1)-2,sp< 6 ) 
270 CALL &A0GD,FN po<h,24)-2,sp(6): 
NEXT h :RETURN 

280 G0SUB 290:G0SUB 310:GOTO 370 
290 CALL &A033: FOR g=l T0 21:jeu(g, 
1 ) = 1 0: jeu(g,13) = 10:NEXT g 
300 FOR g=l T0 13:jeu(1,g)=10:jeu<2 
1, g ) => 10: NEXT g : RETURN 
310 PEN hLOCATE 1,1 1 PRINT • ONE P 
LAYER MAN " :L0CATE 1S,1 : PRINT VI 
E:RETURN 
320 REM 
330 REM 
340 REM 
350 REM 
360 REM 

370 ON TA GOTO 380,400,420,440,460, 

480,500,520,540 

380 RESTORE 5760:G0SUB 600 

390 PEN 1 1 L0CATE 1,1 1 PRINT "A/l 0/ 

3 150 00000":G0SUB 4870:G0T0 1020 

400 RESTORE 5780iG0SUB 600 

410 PEN 1 : L0CATE 1,1 : PR I NT "A/2 0/ 

3 150 00000" 1 G0SUB 487O:G0TQ 1020 

420 RESTORE 5B00:G0SUB 600:cs=3 
430 PEN 1 : L0CATE 1,i: PRINT "A/3 0/ 

5 150 00000":G0SUB 4870:G0T0 1020 

440 RESTORE 5820iG0SüB 600:ca=6 
450 PEN 1 :L0CATE 1,1 : PR INT "A/4 0/ 

4 150 00000":G0SUB 4870:GQT0 1020 

460 RESTORE 5840:G0SUB 600:ca=3 

470 PEN 1 :L0CATE 1,1 : PRINT "B/l 0/ 

5 150 00000":G0SUB 4870:GOTO 1020 

480 RESTORE 5860:G0SUB 600 

490 PEN 1 1 L0CATE 1 ,1 : PRINT "B/2 0/ 

5 150 00000” 1 G0SUB 4870:G0TQ 1020 

500 RESTORE 5880:G0SUB 600:ca=3 
510 PEN 1 1 L0CATE 1 , 1 : PRINT "B/3 0/ 

4 150 00000":G0SUB 4870:GOTO 1020 

520 RESTORE 5900:G0SUB 600 
530 PEN 1 :L0CATE 1 ,1 : PRINT "B/4 0/ 

1 200 00000"iGOSUB 4870:GOTO 1020 

540 t a = 1 : GOTO 370 

550 REM ::::::::::.. 

560 REM : : 


TABLEAU +1 


[ 1277 ] 


[2936] 

[4018] 

[806] 

[700] 

[ 1021 ] 

[1093] 

[3996] 


[611] 

[1769] 

[460] 

[1637] 

[10303 

[12663 

[25303 


[862] 

[19833 

[36523 

[ 1941 ] 

[21193 

[3640] 

[38093 


[1975] 

[4193 

[574] 

[419] 

[1975] 

[25333 


[11353 
[27263 

[1319] 

[2954] 


[8633 

[29523 

[2141] 

[29943 

[1241] 

[3559] 


[819] 

[31573 

[13643 

[35603 

[13503 

[37523 


[7433 

[19753 

[4193 
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570 REM ) DESSIN TABLEAU : C19523 

580 REM : : C4193 

590 REM : ! : : : ! s !i î : : ! : : : s : : : : ! ! : : ; C 1975 3 
600 FOR H=1 TO llsREAD Al C 14073 

610 Alf(H)=BINF(Al, 10) : NEXT [11473 

620 FOR H= 1 TO Ils IF AU (H) = ”000000 C 2967 3 
0000" THEN 670 

630 FOR G=1 TO 10 [7873 

640 Bl=VAL<MIDt<AU<H) ,G, 1 > ) [11873 

650 IF Bl=l THEN 680 [5393 

660 NEXT G [3773 


670 SOUND 1,RND+600+60,5,15;NEXT H: [30523 
GOTO 710 

680 B2=INT(RND*3)+1:0N b2 GOTO 690, [24063 
700,690 

690 CALL &AOOD,FN po(g,<h*2>+1>,sp< [30963 
8 ) : jeu(g + 1,h + l) = 1 : GOTO 660 
700 CALL ?<AOOD,FN po (g , <h*2> +1 ) , sp < [39173 
6 ) : jeu<g + l,h + l)=10: GOTO 660 


710 FOR H=1 TO llîREAD Al [14073 

720 Alt(H)=BINKAl,9):NEXT [6673 

730 FOR H= 1 TO 11: IF AU (H) = "000000 [29333 

000” THEN 780 

740 FOR G= 1 TO 10 [7873 

750 B1 = VAL <MIDf ( AU <H) , G, 1 ) ) [11873 

760 IF Bl=l THEN 790 [6113 

770 NEXT G [3773 


780 SOUND 1,RND*600+60,5,15:NEXT H: [29833 
GOTO 820 

790 B2=INT <RND*4)+1 : ON b2 GOTO 800, [32233 
810,BOO,800 

800 CALL ?<AOOD, FN po(g +10,(h*2)+1 ) , [33883 

sp ( 8 ): jeu(g + 11,h + l) = 1 s GOTO 770 

810 CALL &AOOD,FN po(g + 10,<h*2)+1 ) , [42563 

sp 16): jeu(g +11,h + 1) = 10: GOTO 770 

820 READ >!, y s jeu (x + 1 , (y + 1)/2) = 2:CAL [38093 

L ?<AOOD,FN po (x, y ) , sp ( 3) 

830 READ nbcas:FOR h=l TO nbcas:REA [19523 
D c >i, c y 

840 jeu (ex + 1, (cy + 1 ) /2) =4 : CALL &AOOD [33433 
,FN po(cx,cy),sp<11) 

850 NEXT [3503 

860 READ nbbou,mons :GOSUB 920:IF mo [32453 
ns=0 THEN tt=50:GOTO 960 
870 IF mons=l THEN 11 = 10s GOTO 900 [29543 

880 READ nx , ny : CALL ?<AOOD,FN po(nx, [19603 
ny ) , s-p < 10 ) 

890 sn=l:nl=l:tt=l:EVERY 1100,3 GOS [23033 
UB 5200 

900 READ m>:, my : CALL JtAOOD,FN po(mx, [ 10323 
my ) , s p < 9 ) 

910 sm=lim1=1 ïEVERY 1000,1 GOSUB 52 [10393 

70 

915 GOTO 960 [3243 

920 FOR h=l TO nbbou [9953 

930 bx=INT(RND*17)+2:by=INT(RND*9)+ [31203 
2 1 IF j eu(bx + 1,by + i)< > 0 THEN 930 

931 IF jeu (bx, b y +1 ) = 10 AND jeu(bx + l [2421 3 
,by+2)=10 THEN 930 

932 IF jeu (bx +2,by +1) = 10 AND jeu(bx [37593 
4-1 ,by+-2) = 10 THEN 930 

933 IF jeu(bx,by+l)=10 AND jeu<bx+l 116773 

,by) = 10 THEN 930 

934 IF jeu(bx +2,by+ 1) = 10 AND jeu(bx [33993 
4-1 ,by) = 10 THEN 930 

940 jeu (bx + 1 , by + 1 ) =+5: CALL $<AOOD,FN [ 14093 
po(Bx , (BY*2)+1),sp(5) 

950 NEXT [3503 

960 sens=1 : pic=0:RETURN [ 14223 

970 REM [19243 


980 REM : : [4193 

990 REM : ROUTINE PRINCIPALE : [22253 

1000 REM : : [4193 

1010 REM [19243 

1020 EVERY 250,0 GOSUB 4840:S0UND 2 C23143 
,50,0,15,2,2,31 

1030 IF mi=1 THEN GOSUB 3850 [7503 

1040 IF nl=l THEN GOSUB 4190 [10673 

1050 IF fin= 1 THEN 4660 [9493 


1060 IF INKEY(ha)=0 THEN s=l:GOTO 1 [10273 
140 

1070 IF INKEY(ba)=0 THEN s=2:G0T0 1 [21223 
380 

1080 IF INKEY <ga)=0 THEN s=3:G0T0 1 [23113 
290 

1090 IF INKEY < d a)= 0 THEN s=4:G0T0 1 [13883 
200 


1100 IF INKEY(Fe)=0 THEN 2560 [13603 

1110 GOTO 1030 [3573 

1120 CALL ?<AOOD, FN po < x i , y 1 ) , sp ( 1 3 ) [17313 
1130 jeu(x1 + 1,(y 141)/2)=0:RETURN [17123 
1140 x1 = x: y 1 = y [6503 

1150 y = y-2: IF jeu(x + 1,(y + 1 )/2 )=8 OR [36253 
jeu (x +1, (y4-1 ) /2) =9 THEN 4660 
1160 IF jeu <x + 1,<y + l)/2)=0 THEN GOS [29293 
UB 1120: GOTO 1190 ELSE p y = < y 4- i ) / 2 s y 
= y + 2 

1170 IF j eu(x 4 1 ,py) = 1 THEN 1490 [8993 

1180 IF jeu(x 41, py)=5 THEN 1860 C6953 
1190 IF sens=l THEN 1250 ELSE 1340 [16313 

1200 x1=x: yl = y:sens=2 [7493 

1210 x = x +1 : IF jeu(x + l,(y + l)/2)=8 OR [4531 3 
jeu <x + 1,<y + l)/2> =9 THEN 4660 
1220 IF jeu(x + 1,(y41)72)=0 THEN GOS [29483 


UB 1120:GOTO 1250 ELSE px=x4l:x=x-l 
1230 IF jeu(px,(y+1)/2)=1 THEN 1610 [14393 
1240 IF jeu(px,(y+1)/2)=5 THEN 2000 [14453 
1250 CALL ?<A00D, FN po (x , y ) , sp < 1 ) [ 16493 

1260 SOUND 1,300,5,1,1,1,15:FOR t=l [25153 
TO tt:NEXT 

1270 CALL &AOOD,FN po(x,y) , sp (3): FO [35443 
R t=l TO tt:NEXT 

1280 jeu(x + l,(y + 1)/2)=2î GOTO 1030 [22143 

1290 xl=x: y 1= y :sens=l [7503 

1300 x = x — 1 : IF jeu(x +1,(y +1)/2 )=8 OR [42723 
jeu(x + 1,(y + 1 )/2)=9 THEN 4660 
1310 IF jeu <x + 1,(y + 1)/2)=0 THEN GOS [32293 
UB 1120:GOTO 1340 ELSE px=x+l:x=x+l 
1320 IF jeu(px , (y + 1)72) = 1 THEN 1680 [ 14803 
1330 IF jeulpx,<y+l)/2)=5 THEN 2140 [15443 
1340 CALL &AOOD,FN po<x,y),sp(2) [16513 

1350 SOUND 1,300,5,1,1,1,15* FOR t = l [25153 
TO tt:NEXT 

1360 CALL &AOOD,FN po(x,y),sp(4): FO [31103 
R t=l TO tt:NEXT 

1370 jeu(x + l,<y + l)/2) = 2s GOTO 1030 [22143 

1380 xl=x:yl=y [6503 

1390 y=y+2:IF jeu<x+1,(y+1)/2 )=8 OR [37213 
jeu(x+1,<y+l)/2)=9 THEN 4660 
1400 IF jeu(x +1, <y +1)/2)=0 THEN GOS [23413 
UB 1120:GOTO 1430 ELSE py=(y+l)/2:y 
=y -2 


1410 IF jeu (x +1, py) = 1 THEN 1750 [8233 

1420 IF jeu (x + 1, py) =5 THEN 2280 [8173 

1430 IF sens=l THEN 1250 ELSE 1340 [16313 

1440 REM :: : ::: : : :::::: : :::::: : :: : C19243 
1450 REM : : [4193 

1460 REM : POUSSE BARRIQUE : [17893 

1470 REM : : [4193 

1480 REM ::::: i ::: : ::::::::::::: : : [19243 
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1490 IF jeu <x + l , p y -1 )=8 THEN jeu <x + [28783 
1,py-1)=0î GOSUB 1550 

1500 IF jeu(x + 1,py-13 = 9 THEN jeu(x+ [28893 
1,py-1)=0:GOSUB 1580 

1510 IF jeu <x + l,py-1)=0 THEN 1520 E [,21593 
LSE 1190 

1520 CALL î< A 0 0 D, F N po (>:, (py #2)-1 ) , s [16213 
p < 13) 

1530 ady=FN po(x,<py«2)-3):CALL î<A0 [16733 
0D,ady,sp <8) 

1540 jeu(x+l,py-l)=l:jeu<x+l,py)=0: [23763 
p y = p y — 1 : GOTO 1490 

1550 ml = 0:mu=REMAIN(1): SOUND 4,50,5 [41783 

0,15,3,3:sc=5C+2:G0SUB 4870 

1560 IF n1=1 THEN tt=10 ELSE tt=50 [13253 

1570 AFTER 600,1 GOSUB 5280:RETURN [20833 

1580 n 1=0:mu=REMAIN(3): SOUND 4,50,5 [32383 

0,15,3,3isc=sc+2:G0SUB 4870 

1590 IF ml = l THEN 11 = 10 ELSE tt=50 [12123 

1600 AFTER 500,3 GOSUB 5210îRETURN [11743 

1610 CALL &AOOD , FN po(x,y),sp<1) [16493 

1620 IF jeu(px+l,(y+l)/2)=8 THEN je C34953 

u(px+l,<y + l)/2)=0s GOSUB 1550 

1630 IF jeu(px + 1,(y + 1)/2)=9 THEN je [36653 

u <px + 1,(y+l)/2)=0:G0SUB 1580 

1640 IF jeu <px +1, (y + 1)/2)=0 THEN 16 [20843 

50 ELSE 1250 

1650 CALL &AOOD ,FN po(px-1,y),sp< 13 [18443 
) 

1660 CALL &AOOD,FN po(px,y),sp(8) [16983 

1670 jeu(px+l,(y+l)/2)=l:jeu(px,(y+ [20183 

l)/2)=0:px=px+l:G0T0 1620 

1680 CALL &AOOD,FN po(x,y),sp(2) [16513 

1690 IF jeu(p x — 1,(y + 1)/2)=8 THEN je [27183 

u<px-l,<y + l)/2> =0» GOSUB 1550 

1700 IF jeu(px-1,< y + 1)/2)=9 THEN je [25443 

u(px-1,(y+1)/2)=0:GOSUB 1580 

1710 IF jeu(px-1,[y+1)/2)=0 THEN 17 [15943 

20 ELSE 1340 

1720 CALL S<A00D ,FN po (px-1,y ) , sp ( 13 [ 18443 
) 

1730 CALL &AOOD,FN po(px-2,y),sp<8) [16853 
1740 jeu(px-l,<y+l)/2)=l!jeu(px,(y+ [27043 
1 ) / 2)=0 î px=px-1 ! GOTO 1690 
1750 IF jeu(x + 1,py+ 1)=8 THEN jeu(x+ [37333 
1, py + 1)=0iGOSUB 1550 

1760 IF jeu(x+l,py+11=9 THEN jeu(x+ [18093 
1, py + 1)=0iGOSUB 1580 

1770 IF jeu(x + 1,py + 1)=0 THEN 1780 E [ 14873 
LSE 1430 

1780 CALL &AOOD,FN po(x,<py*2)-1) , s [16213 
p « 13) 

1790 ady=FN po (x , <py*2> +1 ) : CALL !<A0 [23563 
OD,ady,sp(8) 

1800 jeu(x+ 1,py + 1) = 1 : jeu(x+ 1,py)=0: [32613 
p y = p y +1iGOTO 1750 


1810 REM : : : : : : : : i : : : : : : : : : : i : : : : : [ 19243 

1820 REM î i [4193 

1830 REM i POUSSE BOUTEILLE ! [14713 

1840 REM ! ! [4193 

1850 REM ! : ï : : i i : : : ï : : : : : : : : : : : ï : ! [ 1924 3 

1860 casB=0 [4023 


1870 IF jeu(x + 1,py-1)=0 THEN 1890 [19513 
1880 IF jeu <>! + 1 , py-1 ) =4 THEN 1920 E [10893 
LSE 1970 

1890 CALL &AOOD , FN po(x,(py*2)-1) , s [16213 

p ( 13) 

1900 ady = FN po (x , (py *2)-3) ; CALL !<A0 [16273 
OD,ady,sp(5) 


1910 jeu(x + l ,py-1)=5 sjeu(x + l,p y)= 0 ï [32153 
p y = p y-1 1 cass=cass + l! GOTO 1870 
1920 CALL îtAOOD, FN po (x , (py*2>-1 ) , s [16213 
p < 13) 

1930 POKE &A024,&AE:ady=FN po(x,(py [39263 
*2)-3)!CALL &AOOD,ady,sp(5) 

1940 POKE î<A024,0! jeu (x +1 ,py-1 ) = 10: [26503 
j eu(x +1 , py )=0 

1950 FOR b=5 TO 100 STEP 5.-S0UND 1, [24053 
50+h,3,5s NEXT 

1960 pic=pic+1!GOSUB 4800:1F pic=nb [45243 
bou THEN 2940 ELSE 1190 

1970 IF c a s s < 6 THEN 1190 [9913 

1980 p y = p y +1iady=FN po(x,(py*2)-3)! [33183 
CALL &A00D,ady,sp(7) 

1990 jeu(x+l,py-l)=0sGOSUB 2420:G0T [9823 
0 1190 

2000 CALL &A00D,FN po(x,y),sp ( 1)sca [17993 
ss =0 

2010 IF jeu(px+l,(y+1)/2)=0 THEN 20 [18443 
30 

2020 IF jeu(px + 1,<y+ 1)/2)=4 THEN 20 [12413 
60 ELSE 2110 

2030 CALL &AOOD,FN po(px-1,y),sp<13 [18443 
) 

2040 CALL &AOOD,FN po<px,y),sp<5) [17473 

2050 jeu <px + 1, (y + 1 ) / 2> = 5s jeu <p>i , <y+ [45313 
l)/ 2 )= 0 :px=px+l:cas 5 =cas 5 +l:GÛT 0 20 
10 

2060 CALL &AOOD,FN po(px-1,y),sp<13 [18443 
) 

2070 POKE &A024 , !<AE : CALL ?<AOOD,FN p [13553 
o(px,y),sp(5) 

2080 POKE & A 0 2 4,0 ï jeu(px+ 1,(y + 1)/2) [21773 
= 10 î jeu(px,(y + l)/ 2)=0 

2090 FOR h=5 TO 100 STEP 5:SOUND 1, [24053 
50+h,3,5 !NEXT 

2100 pic=pic+1:GOSUB 4800:1F pic=nb [42973 
bou THEN 2940 ELSE 1250 

2110 IF c a s s < 6 THEN 1250 [9873 

2120 px = px -1 : ady=FN po <px , y ) : CALL î< [26673 
AOOD , ady , sp < 7) 

2130 jeu(px+1,(y+1)/2)=0:GOSUB 2420 [23273 
: GOTO 1250 

2140 CALL &AOOD,FN po(x,y),sp(2):ca [18003 

55 = 0 

2150 IF j e u(p x-1,(y +1)/2)= 0 THEN 21 [ 17743 
70 

2160 IF jeu <px-l,(y + 1)/2)=4 THEN 22 [ 18343 
00 ELSE 2250 

2170 CALL &A00D,FN po(px-1,y),sp<13 [18443 
) 

2180 CALL S< A 0 0 D , F N po ( px-2, y ) , sp ( 5 ) [16313 
2190 jeu <px-l,(y + 1)/2)=5:jeu(px,<y+ [36633 
l)/ 2 )= 0 :px=px-l:cas 5 =cas 5 +l:G 0 T 0 21 
50 

2200 CALL SiAOOD , FN po ( px -1 , y ) , sp ( 1 3 [ 1844 3 
) 

2210 POKE &A024 , S< A E : CALL î<AOOD,FN p [16903 
o (px - 2 , y ) , sp (5) 

2220 POKE &A024,0:jeu(px-1,(y+1)/2) [31423 
= 10 :jeufpx,(y + 1 )/ 2 )= 0 

2230 FOR h=5 TO 100 STEP 5:SOUND 1, [24053 
50+h,3,5:NEXT 

2240 pic=pic+1:GOSUB 4800:IF pic=nb [45263 
bou THEN 2940 ELSE 1340 

2250 IF c a s s < 6 THEN 1340 [9853 

2260 px=px+ 1 :ady = FN po(px-2,y):CALL [32093 
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îtAOOD,ady,sp < 7) 

2270 jeu(px-l,<y+l)/2)=(uG0SUB 2420 C17593 
iGOTO 1340 

2280 cass =0 [4023 

2290 IF jeu <x + 1,py + 1 ) =0 THEN 2310 [13083 

2300 IF jeu <x + l,py + 1)=4 THEN 2340 E [29383 
LSE 2390 

2310 CALL îtAOOD,FN po(x,(py*2)-1 ) , 5 [16213 
p < 13) 

2320 ady=FN po (x, <py*2) +1} s CALL îtAO [23663 
OD,ady,sp(5) 

2330 jeu<x + l,py + 1 )=5: jeu<x+ 1 ,py)=0s [23813 
py=py + licass=cass+ls GOTO 2290 
2340 CALL ScAOOD,FN po(x,(py*2)-1 ) , s [16213 
p ( 13 ) 

2350 POKE î< AO 24 , îtAE : ady = FN po<x,(py [32323 
*2) +1 ) ! CALL îtAOOD, ady, sp (5) 

2360 POKE îtA024,0:jeu(x + l,py + l) = 10s [32833 
jeu(x+l,py )=0 

2370 FOR h = 5 TO 100 STEP 5s SOUND 1, [24053 
50+h,3,5:NEXT 

2380 pic = pic +1 :GOSUB 4800sIF pic = nb [44683 
bou THEN 2940 ELSE 1430 

2390 IF c a s s < 6 THEN 1430 [9833 

2400 p y=p y — 1 :ady=FN poix,< p y *2) +1 ) s [28133 
CALL ÎtAOOD,ady,sp17) 

2410 jeu(x + 1,py + 1)=0s GOSUB 2420sG0T [20613 
0 1430 

2420 FOR t-1 TO 300:NEXT: SOUND 1,10 [18263 
00,30,15,1,2,6 

2430 CALL ÎtAOOD, ady , sp < 1 3) s nbbou=nb [28633 
bou + 1s FOR h = l TO 2 

2440 bx=INT(RND*17)+2:by=INT(RND*9) [28763 
+2 1 IF jeu < b >i +1 , b y+1 ) < >0 THEN 2440 
2450 jeu <bx + l ,by + l ) = 5s CALL ItAOOD,FN [16963 
pofBx,(BY*2) +1 ),sp(5):NEXT 
2460 bx=INT(RND*19)+liby=INT<RND*ll [19803 
) + 1 : IF jeu(bx + 1,b y +1)< >0 THEN 2460 
2470 jeu (bx + 1 ,by + l)=4:CALL ÎtAOOD,FN [18443 
po(Bx,(BY*2)+1),sp 111) 

2480 IF nbbou>9 THEN 2500 [7773 

2490 PEN 1 :LOCATE 8,1sPRINT USING " [38623 
# ” ;nbbou:RETURN 

2500 PEN 1 s LOCATE 8,1:PRINT USING " [33573 
##''j nbbüus RETURN 

2510 REM s:::::::::::::::::::::::: [19243 

2520 REM s s [4193 

2530 REM : CASSE BARRIQUE : [5913 

2540 REM s i [4193 

2550 REM :::::::::: :::s: [19243 

2560 ON s GOTO 2570,2650,2730,2810, [24623 
4770 

2570 py=(y-1)/2s IF jeu<x + 1,py)<>1 T [21753 
HEN 1190 

2580 IF jeu(x + 1,py-1)< >0 THEN 2610 [16883 

2590 IF jeu <x + l,py-1 )=0 THEN 1520 [18563 


2600 GOTO 1190 . [3973 

2610 CALL ÎtAOOD,FN po (x , <py*2>-1 ) , s [ 17873 

p < 12 ) 

2620 SOUND 2,50,0,15,2,2,31 [19133 

2630 CALL ÎtAOOD,FN po (x , <py*2)-1 ) , s [16213 
p < 13) 

2640 jeu(x + 1,py)=0:GOTO 1190 [7773 

2650 py=(y+3)/2:IF jeu(x + 1,py)< >1 T [24373 
HEN 1430 

2660 IF jeu (x + 1,py +1)< >0 THEN 2690 [11603 

2670 IF jeu(x + 1,py + l)=0 THEN 1780 [ 13023 

2680 GOTO 1430 [3413 

2690 CALL ÎtAOOD,FN po (x , < p y *2 )-1 ) , s [17873 


p < 12 ) 

2700 SOUND 2,50,0,15,2,2,31 [19133 

2710 CALL ÎtAOOD,FN poix , <py*2)-1 ) , s [16213 
p ( 13 ) 

2720 jeu(x+1,py)=0:GOTO 1430 [5773 

2730 p x = >i s IF jeu(px,(y + 1)/2)< >1 THE [18553 
N 1340 

2740 IF jeu(px-1,(y+l)/2)<>0 THEN 2 [13013 
770 

2750 IF jeu(px-l,(y+1)/2)=0 THEN 17 [17523 
20 

2760 GOTO 1340 [4623 

2770 CALL ÎtAOOD,FN po (px-l ,y> ,sp < 12 [18423 

2780 SOUND 2,50,0,15,2,2,31 [19133 

2790 CALL ÎtAOOD,FN po <px-1,y ) ,sp < 13 [ 18443 
) 

2800 jeu(px , (y + 1)/2)=0:GOTO 1340 [9963 

2810 px =x+2s IF jeu(px,(y + 1)/2)< >1 T [20513 
HEN 1250 

2820 IF jeu <px + l,(y + 1)/2)< >0 THEN 2 [19103 
850 

2830 IF jeu(px + 1,(y+ 1)/2)=0 THEN 16 [19363 
50 

2840 GOTO 1250 [3613 

2850 CALL ÎtAOOD,FN po (px-1,y ) ,sp < 12 [18423 
) 

2860 SOUND 2,50,0,15,2,2,31 [19133 

2870 CALL ÎtAOOD,FN po (px-1,y ) , sp ( 13 [18443 

2880 jeu <px , (y + 1)/2)=0s GOTO 1250 [8463 

2890 REM : : : s : : s : : : : : : s : : : : : s : : s : : [ 19243 

2900 REM : : [4193 

2910 REM s GAGNE s [4413 

2920 REM i i [4193 

2930 REM s s : s : : s s s : s s : : : : s : s s : s s : s [19243 
2940 FOR h=0 TO 3:rou=REMAIN(h)* NEXT [20963 
2950 cai=0:cai1=0 [6503 

2960 sc=sc+3sGOSUB 4870 [9433 

2970 BORDER 0,26:F0R h=l TO 20 [17293 

2980 SOUND l,h#10,10,14 [14853 

2990 IF sens=l THEN GOSUB 3060 ELSE [16903 
GOSUB 3020 

3000 NEXT hs ta = ta + l s IF l:it=l THEN t [ 13763 
a= 1 

3010 BORDER 0:temps=200sGOTO 4720 [15453 


3020 CALL ÎtAOOD, FN po (x , y ) , sp < 1 ) [16493 

3030 FOR t=i TO 200:NEXT [10503 

3040 CALL ÎtAOOD,FN po (x , y ) , sp <3) [ 16453 

3050 FOR t=l TO 200sNEXT:RETURN [14383 
3060 CALL ÎtAOOD,FN po (x , y ) , sp <2) [16513 

3070 FOR t = l TO 200:NEXT [10503 

3080 CALL ÎtAOOD,FN po (x ,y ) , sp <4) [16473 

3090 FOR t=l TO 200:NEXT:RETURN [14383 
3100 REM 3 3 3 3 3 3 3 3 3 3 3 1 : 3 3 3 3 3 : 3 3 3 3 3 : [ 1924 3 

3110 REM s : [4193 

3120 REM : CONSTRUCTION/KIT s [13683 

3130 REM s : [4193 

3140 REM : : : : : : : i : : : : : :i: : :i : : i : : : [19243 


3150 l!it=0:nbbou=0smons=0:x3=0sy3=0 [17003 
:ml= 0 :n 1=0 

3160 CLS:ERASE jeusDIM jeu <21,13 )16 [51833 
OSUB 220!GOSUB 290 

3170 FOR h = 0 TO 19: CALL ÎtAOOD, îtCOOO [32363 
+ <h*4),sp <13)j NEXT3 PLOT 1,366,4:DRA 
W 640,366 

3180 POKE îtA024,îtAE: RESTORE 3200:FO [25223 

R h = 0 TO 19:READ a:PQKE &A300+h,a 

3190 CALL ÎtAOOD,îtC000+(h*4) ,sp(a) sN [20193 


9 
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EXT 

3200 DATA 13,1,13,9,13,10,13,8,13,5 

,13,6,13,11,13,13,13,13,13,13 

3210 RESTORE 3220s FOR h = l TO 20sREA 

D asechel<h)=a ï NEXT 

3220 DATA 0,2,0,8,0,9,0,1,0,5,0,10, 

0,4,0,20,0,21,0,0 

3230 T AG t PLOT -10,-10,6* MOVE 480,39 
2s PRINT "C P"j s TAGOFF 
3240 cx=0: CALL fcAOOD,&C000,sp<14) 
3250 a*=INKEY*sIF a$="" THEN 3250 
3260 IF at=CHR*(243) THEN 3290 
3270 IF a*=CHR*<242) THEN 3310 
3280 IF al=CHRI (224) THEN 3330 ELSE 
3250 

3290 CALL tcAOOD,fcCOOO+cx, sp < 14) s ex- 
oi+4i IF cm >76 THEN cx-0 
3300 CALL JiAOODj&COOO + O! ,5p(14):G0T 
0 £>50 

3310 CALL &AOOD,î<COOO+cx , sp ( 14) : ex = 
cx-4iIF oi<0 THEN 01=76 
3320 CALL &AOOD, IcCOOO+cx , sp ( 14 ) : GOT 
0 3250 

3330 sx=<cx/4)+1 sa=echel(sx): IF a>l 
9 THEN 3570 

3340 x = 10:y=13sxl = x: yl = ysCALL &AOOD 
,FN po <x,y),sp <14) 

3350 k*=INKEY*sIF kl="” THEN 3350 
3360 IF k$=CHR*(240) AND y>4 THEN y 
=y-2s GOTO 3430 

3370 IF k*=CHR*(241) AND y<22 THEN 
y=y+2iG0T0 3430 


3380 IF k$=CHRI(242) AND x>l THEN x 
=x-1 s GOTO 3430 

3390 IF k$=CHR*(243) AND x<19 THEN 
x=x + 1)GOTO 3430 

3400 IF k'$ = CHR$ (224) THEN 3450 
3410 IF k*=CHR*<13> THEN 3550 
3420 GOTO 3350 

3430 CALL &AOOD,FN po(x1,y 1),sp(14) 
3440 CALL ?<AOOD,FN po (x , y ) , sp < 14 ) s x 
l=x! y 1=y: GOTO 3350 
3450 va = jeu(x + l,(y +1)/2)s IF va = 2 OR 
va=8 OR va=9 THEN PRINT CHR*(7):G0 
TO 3350 

3460 POKE &A024,0s s = PE’EK <&A2FF + SX ) 
3470 CALL &AOOD,FN po(x,y),sp<s)s je 
u(x+l,<y+l)/2)=a 

3480 IF a = 2 OR a=8 OR a=9 THEN 3510 
3490 POKE !<A024 ,&AEs CALL «<A00D,FN p 
o (x , y ) , sp < 14 ) 

3500 IF a = 5 THEN nbbou = nbbou + ls GOTO 
3350 ELSE 3350 

3510 IF a = 2 THEN POKE &A024,0:POKE 
&A301,13! add=&C004 : echel <2)=0:x3=x i 
y3=y:G0T0 3540 

3520 IF a = 8 THEN POKE $<A024,0: POKE 

?<A303,13i add = S(COOC! echel (4)=0:mx=x s 

my=y:ml = l: GOTO 3540 

3530 IF a = 9 THEN POKE ?<A024, Os POKE 

6 A 305,13s add = S<C014s echel (6) = 0: nx = x : 

ny = y!n1 = 1 ! GOTO 3540 

3540 CALL S.AOOD , add , sp ( 13) s POKE «<A0 

24 , î<AE i GOTO 3240 

3550 CALL 6A00D,FN po(x,y),sp(14) 
3560 CALL &A00D, ?<C000+cx , sp ( 14 ) s GOT 
0 3240 

3570 IF a = 20 THEN POKE &A024,0s GOTO 
3150 


C25043 
C 25023 
[18833 


[3458 3 


[15793 

[14393 

[6723 

[9723 

[13243 


[39723 


[29763 

[34013 

[29763 

[22483 

[21883 

[15483 

[20263 


[26133 


[8453 

[21243 

[10543 

[4793 

[4433 

[17573 

[30103 

[50893 


[21113 

[16643 

[13053 

[23273 

[26243 


[35683 


[58393 


C4089 3 


[29263 

[16083 

[29703 


[23973 


3580 IF x3=0 THEN PRINT CHR*(7):CAL 
L &AOOD,&COQO+cx,sp(14)scx = 4s CALL l 
AOOD ,!<C004 , sp ( 14) s GOTO 3250 
3590 SOUND 4,65,150,15,1,2 
3600 FOR h = 1 TO 21 s FOR g=l TO 13sa = 
jeu(h,g >:je(h,g) = a sNEXT g,h 
3610 POKE S<A024,0s FOR h = 0 TO 19s CAL 
L 5<AOOD,?<COOO+(h*4) ,sp(6 )jNEXT 
3620 PEN 1 :LOCATE 1,1 sPRINT "KIT 0 
/ 150 00000" 

3630 X=X3sY=Y3sTEMPS=150sG0SUB 2480 
îGOSUB 4840 ! PLOT l,366,0sDRAW 640,3 
66 

3640 IF m 1 = 1 THEN mons=mon5+l s EVERY 
1000,1 GGSUB 5270 

3650 IF n 1 = 1 THEN mons=mons+l s EVERY 
1100,3 GOSUB 5200 

3660 11 = 5 0: IF mons=l THEN 11 =10 ELS 
E IF mons=2 THEN 11 = 1 
3670 pic=0:kit=l:ca=2:G0T0 1020 
3680 nbbou=Oimons=Os x 3=0s y3=0s n1 = 0 î 
m 1 = 0 

3690 CLS s GOSUB 220sG0SUB 290sG0SUB 
310 

3700 FOR g=2 TO 12:FOR h=2 TO 20sa= 

je(h,g)sjeu(h,g)=a 

3710 IF a=0 THEN 3790 

3720 IF a = 10 THEN CALL $<A00D,FN po( 

h-1 , (g * 2)-1),sp(6)sGOTO 3790 

3730 IF a=1 THEN CALL &AOOD,FN po(h 

-1,< g *2)-1 > , sp(8)sGOTO 3790 

3740 IF a = 4 THEN CALL !<AOOD,FN po(h 

-1 , (g*2)-1 ) ,sp(11)sGOTO 3790 

3750 IF a=5 THEN CALL &A00D,FN po(h 

-1,<g*2)-1),sp(5)sGOTO 3790 

3760 IF a = 2 THEN CALL 5<A00D,FN po(h 

-1 , < g*2)-1),s p(1)s x3=h-l: y3=(g*2)-1 

3770 IF a = 8 THEN CALL ï<AOOD,FN po(h 

-1 , (g#2)-1),sp(9):rox=h-l:my=(g*2)-l 

i ml = 1 


IF a = 9 

i*2)-1 ) 


THEN CALL S<AOOD,FN po(h 
,s p(10 >înx=h-lsny=(g*2)- 

1 

^EX T h,g : GOTO 3620 
(EM : : : ! : ! : ! j : ! : : : : : 

(EM : 

(EM : MONSTRE NR 1 
(EM s 

(EM : :i: : s : : : : : : : : : ; 

»x 1 =mx s my 1 = my 

)N sm GOTO 3870,3980,4040,4090 
)x = mx + l: IF jeu <mx + l,(my + 1)/2) = 
1 4660 

'F jeu<mx + l,<my + l}/2)= 0 THEN 3 

F jeu(mx+1,(my+1)/2)=1 AND ca 
'HEN cai1=cai 1-1 :jeu(mx + 1,(my + 
; 0:GOSUB 3910:GOTO 3920 
ix=mx-l 

>»=INT(RND*4) +1 ; IF sm=l OR sm= 

I 3910 ELSE RETURN 
• A L L J< A 0 0 D, F N po(mxl,myl),sp(l 

IOUND 2,50,0,15,2,2,31 

ALL !<A00D,FN po (mx 1,my 1 ) , sp ( 1 

eu(mx1 + 1,(my1 + 1 )/2)=0 

Ai i A A A H P Ki n n / m \ i n. \j \ p n i O I 


[4929] 

[1245] 

[2962] 

[2296] 

[2209] 

[5053] 

[2165] 

[1969] 

[1535] 

[1891] 

[2602] 

[2078] 

[3853] 

[527] 

[3585] 

[4681] 

[ 1857] 

[4351] 

[3989] 

[2638] 


[4575] 


[981] 

[1366] 

[419] 

[844] 

[419] 

[1366] 

[592] 

[2256] 

[2439] 

[1728] 

[5260] 


[764] 

[3512] 

[1803] 

[1913] 

[1829] 

[1057] 

[1983] 

[949] 
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3980 my=my-*-2 î IF jeu (mx +1 , (my +1 )/2) = [32933 
2 THEN 4660 

3990 IF jeu(mx +1 , (my+1)/2)=0 THEN 3 C1 7283 
940 

4000 IF jeu(mx + 1,< my +1)/2) = 1 AND ca C56803 

1 1 >0 THEN cai 1 =cai 1 -11 jeu (mx + 1, <my + 

1)/2)=0:GOSUB 4020îG0T0 3920 

4010 my=my-2 [5423 

4020 5m=IN T <RND*4) +1 : IF sm=2 OR sm= [26893 

4 THEN 4020 ELSE RETURN 
4030 GOTO 3940 [4853 

4040 m>i=m>!-l : IF jeu<mx + i, <my + l)/2>= [30533 

2 THEN 4660 

4050 IF jeu(m>! + i , (my + 1) /2) = 0 THEN 3 [17283 
940 

4060 IF jeu(mx + 1,<my + i)/2) = 1 AND ca [58093 
i I >0 THEN cai 1 =cai 1 -1 : jeu (m>: +1, (my + 

1 )/2)=0s GOSUB 4080:GOTO 3920 

4070 m>! = m>! + 1 [768 3 

4080 5m=INT<RND#4)+1 : IF sm=3 OR 5m= [25413 

1 THEN 4080 ELSE RETURN 

4090 my = my-2:IF jeu ( m>i +1 , ( my +1 )/2 ) = [31023 

2 THEN 4660 

4100 IF jeu (mx+1,(my+1)/2)=0 THEN 3 [17283 
940 

4110 IF jeu(mx +1, (my + 1 ) / 2) = 1 AND ca [52523 
i 1 )0 THEN cai1=cai1-1 : jeu(mx+ 1,<my + 

1 ) /2)= 0:GOSUB 4130:GOTO 3920 


4120 my=my+2 [5383 

4130 sm=INT(RND*4)+l:IF em = 4 OR sm= [40193 
2 THEN 4130 ELSE RETURN 

4140 REM :i î: : :î: : : : : : : : : : : [ 13663 

4150 REM : i [4193 

4160 REM : MONSTRE NR 2 : [8503 

4170 REM : : [4193 

4180 REM ï ï >: : : ï : : : : : ï ; : :11 [ 13663 

4190 n>: l=n>: i ny l = ny [8983 


4200 ON en GOTO 4210,4320,4380,4430 [20553 
4210 n>:=n>: + 1 ï IF jeu <n>: + 1 , <ny +1 ) /2) = [23333 
2 THEN 4660 

4220 IF jeu (n>! +1 , (ny +1 ) /2 > = 0 THEN 4 [15383 
280 

4230 IF jeu(nx +1,(ny + l)/2) = l AND ca [4641 3 
i >0 THEN cai =cai-1 : jeu <n>i+ 1 , (ny + 1 ) / 


2) =0 : GOSUB 4250:G0T0 4260 

4240 n>!=nx-1 [7183 

4250 5n=INT(RND*4)+1 : IF sn = l OR en= [31293 
3 THEN 4250 ELSE RETURN 

4260 CALL &AOOD,FN po(n>:l ,nyl) ,sp <1 [28083 
21 

4270 SOUND 2,50,0,15,2,2,31 [19133 

4280 CALL ?<A00D,FN po <n>: 1 ,ny 1 ) , ep ( 1 [28423 

3) 

4290 jeu(nx1+1,(ny1+1)/2)=0 [11063 

4300 CALL &A00D,FN po(nx,ny),ep ( 10) [25293 
4310 jeu (nx+1,(ny+1)/2)=9:RETURN [23633 
4320 ny=ny+2:IF j eu (n>: +1 , ( ny +1 ) J2 ) = C 2388 3 
2 THEN 4660 

4330 IF jeu(nx + 1,(ny + 1 ) 12) =0 THEN 4 [ 15383 
280 

4340 IF jeu(nx + 1, (ny + 1)/2) = 1 AND ca [45603 


i>0 THEN cai =cai-1 : jeu(nx + 1,(ny + 1 ) / 
2)=0:GOSUB 4360s GOTO 4260 


4350 ny=ny-2 [8893 

4360 sn=INT(RND*4)+1 : IF sn = 2 OR sn= [ 18873 

4 THEN 4360 ELSE RETURN 
4370 GOTO 4280 [3553 

4380 nx*nx-l:IF jeu(nx+1,(ny+1)/2)= [31063 

2 THEN 4660 


4390 IF jeu(nx+1,(ny+1) 12 )=0 THEN 4 
280 

4400 IF jeu(nx+l,(ny+1)/2)=1 AND ca 
i>0 THEN cai=cai-l:jeu(nx+l,(ny+1)/ 
2)=0:GOSUB 4420:G0T0 4260 
4410 n x=n >: +1 

4420 en=INT(RND+4)+1 : IF en = 3 OR sn = 

1 THEN 4420 ELSE RETURN 

4430 ny=ny-2:IF jeu(nx+i,<ny+l)/2)= 

2 THEN 4660 

4440 IF jeu (nx + 1 , (ny + 1 ) /2) = 0 THEN 4 
280 

4450 IF jeu (nx + 1, (ny + 1 ) /2> = 1 AND" ca 

1 >0 THEN cai=cai-l: jeu(nx + 1,(ny + 1)/ 

2) =0:GOSUB 4470:G0T0 4260 
4460 ny=ny+2 

4470 sn=INT<RND*4) +1 s IF 5n = 4 OR sn = 

2 THEN 4470 ELSE RETURN 

4480 em= INT<RND*4)+i:cail=ca:RETURN 

4490 REM UN OS ? TEL 96 38 94 24 <d 
emandez CLAUDE) 

4500 mx = INT(RNDM9)+l:my = INT<RND*12 
>+l 

4510 IF jeu(mx,my)<>0 THEN 4500 
4520 jeu(mx,my)=5:mx = mx-l:my* <my*2) 
-1 

4530 CALL &A30C,FN po(mx ,my),sp<11) 
4540 m1=1iEVERY 800,1 GOSUB 4480iRE 
TURN 

4550 en=INT(RND«4)+l:cai= ca:RETURN 
4560 n>i = I NT <RND* 19 ) +1 :ny=I NT<RND*12 
)+l 

4570 IF jeu (nx , n y)<>0 THEN 4560 
4580 jeu(nx,ny)=6:nx=nx-liny=(ny*2) 
-1 

4590 CALL &A30C,FN po (nx ,ny),ep(12) 
4600 n1 = 1 :EVERY 900,3 GOSUB 4550:RE 
TURN 

4610 REM s:;::::::::::::::: 

4620 REM i 

4630 REM : VIE -1 : 

4640 REM : i 

4650 REM : : : i : : : : : : : : : i : : : : 

4660 FOR h=0 TO 3:mu=REMAIN(h):NEXT 
4670 fin=0îcai*0:cail=0 ' 

4680 vie = vie-1 : BORDER 26:INK 0,26:1 
NK 1,26:INK 2,26 

4690 OUT ?<BC00,2:0UT &BD49,49: SOUND 
4,1500,50,7,0,0,10: OUT ?<BC00,2:0UT 
?< B D 4 9,4 6 

4700 FOR t=l TO 4000:NEXT t 

4710 BORDER 0: INK 0,0:INK 1,26:INK 

2,13:IF k i t = 1 THEN 3680 

4720 GOSUB 310:ERASE j eu :ERASE al*: 

DIM jeu <21,13) : DIM aU(ll) 

4730 GOSUB 290: TEMPS*150: PIC = 0 
4740 IF vie=0 THEN 4950 ELSE 370 
4750 REM : : : : : : : : : : : : i : i : : : 

4760 REM : : 

4770 REM : TEMPS/SCORE/ETC : 

4780 REM : : 

4790 REM : : : : : : : : : : : : : : : : : : 

4800 IF NBPIC>9 THEN 4830 

4810 PEN 0:LOCATE 6,1 : PRINT CHR* ( 14 

3) : P E N 1 :LOCATE 5,1 : PR I NT TR*;PIC 
4820 SC=SC+1:GOSUB 4870:RETURN 
4830 PEN 0 :LOCATE 5,1î PRINT CHR*<14 
3)+CHR* <143):PEN 1:L0CATE 4,1 : PR I NT 


[15383 

[43153 


[9293 

[25493 

[25173 

[15383 

[48543 


[8853 

[31023 

[8933 

[23903 

[20403 

[17823 

[16703 

[18463 

[23333 

[8943 

C18793 


[13283 

[19113 

[20363 

[12813 

[13663 

[4193 

[6473 

[4193 

[13663 

[20963 

[16923 

[19333 

[30573 


[12223 

[33853 

[39243 

[20903 

[5673 

[13663 

[4193 

[16323 

[4193 

[13663 

[18773 

[44083 

[8083 

[48313 
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TRI; PIC ïGOTO 4820 

4840 DI»TEMPS=TEMPS-5:PEN IsLOCATE 

10.1 :PRINT TEMPSiPRINT CHRK7) 

4850 IF TEMPS<5 THEN Fin = l: El ! RETUR 
N 

4860 EliRETURN 

4870 PEN Oi IF SO-99 THEN LOCATE 16, 

1:PRINT CHR!<143)+CHR!(143)+CHR!<14 
3)}PEN 1iLOCATE 15,1iPRINT TR!;SC;N 
RIt RETURN 

4880 IF SC>9 THEN LOCATE 17,1sPRINT 
CHR!<143)+CHR!<143)s PEN IsLOCATE 1 

6 .1 s PRINT TRI;SC;NRIsRETURN 
4890 LOCATE 18,1» PRINT CHRI(143)sPE 
N IsLOCATE 17,1 s PRINT TRI;SC;NRI:RE 
TURN 

4900 REN s s s s s s s s s s s :: s s s s : s s s s :: s 
4910 REM 3 3 

4920 REM s REVITALISATION 3 
4930 REM s s 

4940 REM 3 3 3 3 S 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 : 3 3 3 3 
4950 WHILE INKEYK>*"sWENDsVIE=5 
4960’ CL S : PEN SbLOCATE 4,2» PRINT"REV 
ITALISATION" 

4970 PEN 2s LOCATE 5,24 sPRINT"A - B 
ou K"s PEN 4 s LOCATE 15,24sPRINT* I T" 

4980 CALL ÎtAOOD,FN po<7,7),sp< 6 )b CA 
LL îtAOOD,FN po<8,7),sp<l> 

4990 CALL ÎtAOOD,FN po<7,9),sp< 6 ): CA 
LL ÎtAOOD,FN po<8,9) ,sp< 6 > 

5000 PRINT trlsFOR h=l TO 20sPEN 15 
sLOCATE h , 19» PRINT CHRK143) 

5010 PEN 6 b LOCATE h , 19s PRINT CHRH2 [39703 
33)s NEXTsPRINT nr l 

5020 CALL îtAOOD,FN po ( 10,1 7) , sp <5) s [40723 
CALL îtAOOD,FN pD<19,17),sp<5) 

5030 PLOT 266,280,43 DRAW 316,254 s DR [16473 
AW 316,144 

5040 At=INKEY!s A!=UPPER!<Al )b IF A1= [28543 
"A" THEN TA=1 sCLSs GOTO 210 
5050 IF AI="B*’ THEN TA=5» CLS» GOTO 2 [ 17743 
10 

5060 IF A!=”K” THEN CLSsGOTO 3150 [13023 

5070 CP=CP + 1s IF CP=45 THEN GOSUB 50 [33633 
9 0 s C P=0 

5080 GOTO 5040 [3953 

5090 FOR H=0 TO 8 sCALL ÎtAOOD,FN po< [26283 
10—H,17),sp <13) 

5100 CALL ÎtAOOD,FN po < 19-H, 1 7 ) , sp < 1 [33633 
3)s CALL îtAOOD,FN po< 8 ,7),sp<3) 

5110 CALL ItAOOD , FN po <9-H, 17 ) , sp <5) [45653 
sCALL îtAOOD,FN po<18-H,17>,sp<5) 

5120 CALL ItAOOD, FN po< 8 ,7) , sp< 1 ) [1554 3 

5130 NEXTsCALL ÎtAOOD,FN po<l,17),sp [33013 
<13)3 CALL ÎtAOOD,FN po < 19,17) , sp (5) 

5140 SOUND 2,50,20,15,4,2,6!RETURN [20923 
5150 REM 3333333333333333333333333 [19243 

5160 REM s s [4193 

5170 REM s TEMPOS DIVERSES s [13113 
5180 REM s s [4193 

5190 REM 3 S 3 3 3 3 3 3 3 3 3 3 3 3 3 3 S 3 3 3 3 3 3 3 3 [19243 

5200 sn=INT<RND*4)scai=cas RETURN [14953 
5210 n>i = INT<RND*19>+l:ny=INT<RND*12 [ 18793 
>+l 

5220 IF jeu <n>! , ny ) < >0 THEN 5220 [12133 

5230 jeu <n>; ,ny ) =9s nx=n>!-1 : ny= <ny*2) [14173 

5240 CALL ÎtAOOD,FN po<n>s,ny ) ,sp < 10) [25293 
5250 IF ml=l THEN 11 = 1 ELSE 11 = 10 114343 

5260 n 1 = 1 îEVERY 900,3 GOSUB 5200sRE [ 17243 


[30293 

[35463 

[4163 

[74063 


[58483 


[40063 


[19243 

[4193 

[12233 

[4193 

[19243 

[23733 

[24103 

[35303 

[36583 

[32893 

[27023 


TURN 

5270 sm=INT<RND*4)scail=casRETURN 
5280 m>i = INT <RND*19) +1 : my = INT (RND* 12 
) + l 

5290 IF jeu(mx , my )< >0 THEN 5280 
5300 jeu <m>:,my ) =8s m>s = m>s -1 1 my = <my*2) 
-1 

5310 CALL ÎtAOOD,FN po(m>: ,my) ,sp<9) 
5320 IF n1*1 THEN tt-1 ELSE tt=10 
5330 ml = 1 !EVERY 800,1 GOSUB 5270s RE 
TURN 

5340 Fin = l s RETURN 
5350 REM S S : S 3 S 3 S 3 3 3 3 S 3 S S S S S S S 3 3 

5360 REM ! ! 

5370 REM s MENU CARREFOUR s 

5380 REM s ! 

5390 REM S 3 3 S i 3 ! 3 1 3 i 3 S 3 3 3 3 s 3 S S 3 3 

5400 WHILE INKEYIO""»WEND 
5410 MODE 1 s PEN 3sL-0CATE 11,5s PR INT 
STRING!<21,”*")sLOCATE 11, 19 bPRINT 
STRING!<21,"*")!FOR h=6 TO 18sL0CA 
TE 11,h s PRINT "«"sLOCATE 31,hî PRINT 
"*"s NEXT 

5420 PEN 2s LOCATE 14,7 î PRINT"1 -“ ; î 
PEN 1sPRINT” EXPLICATIONS" 

5430 PEN 2s LOCATE 14,10 î PR IN T 11 2 -"; 
sPEN 1 s PRINT" JOYSTICK" 

5440 PEN 2s LOCATE 14,13 s PRINT"3 -"; 
sPEN 1 s PRINT" CLAVIER" 

5450 PEN 2!LOCATE 14,16sPRINT"4 -"; 
sPEN 1 s PRINT" CONSTRUCTION" 

5460 AI=INKEYI»IF at="" THEN GOTO 5 
460 

5470 PRINT CHR!<7> îIF A!="l" THEN 5 
570 

5480 IF A!="2" THEN ga=74:da=75iha= 

72s ba=73: Fe=76s RETURN 

5490 IF A! = "3" THEN ga = 8ida=1 sha=0i 

ba=2s Fe=9:RETURN 

5500 IF A!=”4" THEN 5670 

5510 GOTO 5460 

5520 REM 3 3 S S S 3 3 S S 3 S S S S 3 3 S S S S S 3 3 3 s 
5530 REM ! s 

5540 REM ! EXPLICATIONS s 

5550 REM s ! 

5560. REM 3 3 ! S 3 ! S S 3 3 S 3 S 3 3 3 3 3 S 3 S S 3 3 3 
5570 CLSs LOCATE 15,1:PRINT"JOB LAK 
BAZ”!PEN 2:LOCATE 15,2 î PRINT" === === 

S S = SS = 11 

5580 PEN 3sLOCATE 1,4sPRINT” Job 
Lalibaz est l'homme qui boit plus v 
ite que son ombre" 

5590 LOCATE l,6sPRINT" Il a decid 
e de Faire de 1 'ordre danssa cave 
et de ranger ses bouteilles dansdes 
ca si ers” 

5600 LOCATE 1,9:PRINT" Pour cela 
il suFFira de les poussermais en 
Faisant attention a la casse" 

5610 LOCATE 1,11 :PRINT" De nombre 
uses barriques peuvent l'ai-der.Si 
elles le gene,les touches <COPY> ou 
< FIR E > les Feront disparaitre." 
5620 LOCATE l,14sPRINT" Comme tou 
t ivrogne qui se respecte ilverra d 
es éléphants roses qui viendrontlu 
i compliquer sa tache." 

5630 LOCATE 1,17» PRINT" La strate 
gie est ici très importante,car de 
nombreux tirages aléatoires Fontqu 


[20353 

[20403 

[17073 

[23863 

[19833 

[19003 

[28033 

[1663 

[17363 

[4193 

[12913 

[4193 

[17363 

[17863' 

[99203 


[44533 

[43413 

[41183 

[31773 

[19333 

[20513 

[33023 

[28893 

[6903 

[3593 

[19243 

[4193 

[6233 

[4193 

[19243 

[44943 


[62593 


[102313 


[77633 


[ 11354 3 


[110273 


[144623 
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e vous ne jouerez jamais avec le m 
emetableau." 

5640 PEN 1 s LOCATE 1,22* PRINT" Si C7889] 
8 tableaux ne vous suffisent pas; f 
ai tes les vôtres... ” 

5650 LOCATE 33,25sPEN 2 ! PR INT "<ENT [4744] 
ER>": WH ILE INKEY»*""sWENDsGOTO 5400 
5660 REM )!ü EXPLICATION KIT üu [11641 
5670 CLS:LOCATE 12,1 :PRINT"CONSTRUC [37293 
TION KIT":PEN 2:L0CATE 12.2sPRINT"- 


5680 PEN 3j LOCATE 1,4* PRINT" La c [82783 
onstruction d'un tableau se fait av 
ec les touches f1echees,COPY et ENT 
ER" 

5690 PEN 3:LOCATE 1 ,8:PRINT" En h [68463 
aut de l'écran,tous les éléments do 
rit vous avez besoin." 

5700 LOCATE 1,11*PRINT" Les 3 pre [85963 
miers sont uniquesjune fois en plac 
e,ils deviennent inamovibles.” 

5710 LOCATE 1,14 : P RIN T M La touche [110683 

FIRE/COPY valide l'element choisi 
a la place de la mire.La touche EN 
TER remet la mire en haut de l'ecra 
n. " 

5720 LOCATE 1,19ïPRINT" < C > s C [22993 
LS du tableau en cours." 

5730 LOCATE 1,21sPRINT” < P > : P [45423 
LAY immédiat du tableau " 

5740 LOCATE 33,25sPEN 2:PRINT "< E N T [47443 

ER>"iWHILE INKEYf=""1WENDiGOTO 5400 

5750 REM tu DATAS DES 8 TAB ü: [8843 

5760 DATA 0,494,42,168,160,191,128, [33233 

447,292,484,0,0,8,494,288,318,256,1 

24,448,76,0,0 


5770 DATA 7,15,4,6,21,8,7,15,23,18, [21883 
15 , 3,0 

5780 DATA 0,260,262,261,260,260,260 [38013 

,500,0,0,0,0,190,416,160,160,160,16 

0,190,0,0,0 

5790 DATA 18,11,5,3,23,7,23,11,23,1 [32073 
5,23,19,23,3,1,10,21 

5800 DATA 0,0,255,128,128,128,128,1 [25813 
28,255,0,0,0,0,508,4,4,4,4,4,508,0, 

0 

5810 DATA 11,13,7,3,3,11,3,17,3,3,2 [31593 

3,17,23,1,13,19,13,5,2,2,5,4,17 

5820 DATA 0,511,256,383,368,368,368 [34033 

,383,256,511,0,0,510,2,506,58,58,58 

, 506 , 2 , 510,0 

5830 DATA 9,13,4,1,3,19,3,1,23,19,2 [21533 

3.4.1.17.7 

5840 DATA 64,335,328,328,328,329,26 [30913 
4,511,8,9,9,0,508,0,0,511,0,0,504,8 
, 8,0 

5850 DATA 8,15,6,1,23,2,23,3,23,4,2 [21733 
o,5,2 c»,6,2 o,5, 1 ,17,2o 

5860 DATA 960,960,960,960,0,0,0,960 [31263 

,960,960,960,15,15,15,15,0,0,0,15,1 

5,15,15 

5870 DATA 10,15,5,9,11,11,11,9,15,1 [21593 
1,15,10,13,5,0 

5880 DATA 0,1,3,7,15,31,60,124,255, [37423 
51 1,512,0,0,256,384,448,480,240,248 
,508,510,1 

5890 DATA 8,23,5,10,23,10,21,10,19, [27263 

10.17.10.15.4.1.3.7 

5900 DATA 1023,1023,1023,1023,1023, [33193 
1023,0,1023,31,31,31,0,0,0,0,0,0,0, 

0,0,0,0 

5910 DATA 15,15,1,2,21,1,0 [8913 
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l'attention de ceux qui envisa¬ 
gent raisonnablement de 
morceler leur travail en plu¬ 
sieurs fichiers qui devront 


ultérieurement être réunis en 
fichiers définitifs. 

Sébastien Royer 


Dans un immense entrepôt, Pool 
Vextra-terrestre doit s'approvi¬ 
sionner en carburant et reconstituer 
son vaisseau afin de rejoindre ses 
proches éloignés. 



mi p j 

m 

» i 

CS 

CS 

*■ * 

* 

** «V 

«t 

m 

m .J 

t Jê *■ 

UffMM * 


e voici en quête de pré¬ 
cieux caissons d'oxygo- 
litrome et des trois 
parties de sa navette. Gare 
aux chaudrons de lave incan¬ 
descente répartis dans le 
décor! 



Une jauge graduée située tout 
en haut de l'écran, croît en 
fonction du nombre de cais¬ 
sons recueillis. La longueur 
de la barre d'énergie et la 
taille du coeur témoignent de 
votre état de fatigue. En pos¬ 
session de tous les containers, 
la case EXIT clignote: c'est le 
moment de rejoindre la case 
FIN. Les déplacements s'ef¬ 
fectuent par les touches direc¬ 
tionnelles droite, gauche, bas 
et le lancement d'une partie 
par la barre d'espacement. 

N.B. A noter l'extraordianire 


fluidité de l'animation. 


Sauvegarde des 
listings 

Sauvez sous le nom évident 
de POOL, le court listing 
Basic de chargement. Entrez 
ensuite par Amsaisie V.2 en 
vous reportant à son mode 
d'emploi, les quatre listings 
suivants de codes hexadéci¬ 
maux. 


Nom 

Adr. déb. 

Long. 

POOLl 

&3000 

8.1980 

POOL2 

&5B80 

8.3002 

POOL3 

8.9000 

8.A4C 

POOL4 

&9B80 

8.C80 


La longueur est ici précisée à 


10 

' ********************** 

C 673 ] 

20 

' *#** 

#**# 

[2783 

30 

' *«** POOL 

* #*# 

[3933 

40 

' **** 

#*** 

[2783 

50 

’ ##*# (C) 


[309 3 

60 

' #**# 

**** 

[2783 

70 

###■* R.O.S. SOFT 

##** 

[9303 

80 

' *##* 

*#** 

[2783 

90 

' ###* by 

**** 

[1773 

100 

'**** Sebastien 

**** 

[8673 

110 

'**** ROYER 

#*** 

[1833 

120 

' *#** 

**#«■ 

[2783 

130 

'*#*#**#****#####** 

*##* 

[6733 

140 

MEMORY &3000-1:CLS 


[6193 

150 

L0AD” iP00Ll.BIN" 


[13303 

lé.0 

L0AD" IP00L2.BIN" 


[14263 

170 

L0AD" IP00L3.BIN" 


[12963 

180 

L0AD" iP00L4.BIN” 


[9863 

190 

FOR 1=0 T0 15 


[504 3 

200 

READ Ai INK I,A:NEXT 


[14833 

210 

DATA 0,25,13,3,1,2, 

14,26,24,15, 

[21683 

6,2 

0,18,12,16,16 
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FO 

FO 

FO 

FO 

FO 

8 D 

43 

80 

A7A8: FF 

FF 

FF 

00 

00 

00 

00 

00 

49 

A2D0 

65 

ES 

CF 

FO 

FO 

FO 

FO 

FO 

2E 

A 540 

8 D 

43 

CF 

CF 

CF 

CE 

SE 

82 

22 

A7B0:00 

16 

51 

02 

01 

18 

00 

00 

13 

A2D8 

FO 

FO 

8 D 

43 

83 

4F 

CF 

CF 

87 

A548 

00 

00 

OB 

D2 

E5 

DA 

A5 

43 

86 

A7B8:00 

00 

00 

00 

00 

00 

00 

00 

5F 

A2E0 

CF 

CF 

C9 

07 

00 

00 

OB 

D2 

43 

A550 

88 

CC 

44 

44 

44 

88 

CC 

43 

21 

A7C0:00 

00 

00 

00 

00 

00 

00 

00 

67 

A2EB 

E5 

CF 

FO 

BO 

CF 

F4 

DA 

FO 

D 6 

A558 

F4 

70 

FO 

FO 

FO 

FO 

FO 

FO 

Cl 

A7C8:00 

00 

00 

00 

00 

00 

00 

00 

6 F 

A2F0 

9A 

CF 

ED 

DA 

ES 

F4 

CF 

FO 

53 

A560 

FO 

FO 

8 D 

43 

8 D 

43 

CF 

CF 

FC 

A7D0:00 

00 

00 

00 

00 

00 

00 

00 

77 

A2F8 

FO 

FO 

FO 

FO 

FO 

FO 

8 D 

43 

3D 

A568 

CF 

CE 

OB 

82 

00 

00 

OB 

D 2 

7E 

A7D8)00 

00 

00 

00 

00 

00 

00 

05 

A7 

A300 

83 

4F 

CF 

CF 

CF 

CF 

C9 

43 

E9 

A570 

BO 

DA 

A5 

43 

88 

44 

88 

CC 

CC 

A7E0:33 

00 

00 

00 

00 

00 

50 

34 

8 A 

A30B 

00 

00 

OB 

D2 

ES 

CF 

FO 

FO 

77 

A578 

44 

88 

CC 

43 

BO 

E4 

C3 

FO 

7E 

A7E8:20 

20 

20 

20 

20 

20 

24 

24: 4B 

A310 

DE 

F4 

DA 

FO 

CF 

30 

CF 

70 

IB 

A580 

FO 

FO 

FO 

FO 

FO 

FO 

8 D 

43 

C 8 

A7F0:24 

FF 

00 

FF 

00 

00 

C3 

F4 

AA 

A318 

ES 

F4 

CF 

FO 

FO 

FO 

FO 

FO 

15 

A588 

44 

OB 

C7 

CF 

CF 

8 D 

43 

00 

46 

A7F8iOD 

00 

00 

D 8 

F 6 

28 

OD 

00 

25 

A320 

FO 

FO 

8 D 

43 

83 

4F 

CF 

CF 

DO 

A590 

00 

00 

4B 

43 

FO 

DA 

AS 

43 

89 

A 8 0 0 ! 0 0 

CA 

F4 

CF 

29 

01 

BO 

01: FF 
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LE RETOUR 
D'AU GATOR 

Notre singulier reptile (hors-série 
n°10 d'Am-Mag) est de retour pour 
de nouvelles aventures pleines de 
bosses, où il est vaguement ques¬ 
tion d'élévation sociale... 


Q ue dire de plus 
puisque les règles du 
jeu sont incluses. A 
noter que les lignes REM 4070 
à 4220 contenant quelques 
précisions sur le langage 
machine, peuvent être 
omises. 


Sauvegarde des 
listings 

Sauvez sous un nom de votre 
choix le premier listing Basic 
(programme principal). 
Entrez ensuite par Amsaisie 



V.2 en vous reportant à son 
mode d'emploi, le second lis¬ 
ting de codes hexadécimaux 
(sprites et routines). Spécifiez 
&9D00 comme adresse de 
début et sauvegardez par «S» 
le fichier binaire sous le nom 
de «ALIBIN». Si vous ne sou¬ 
haitez pas saisir en une seule 
fois la totalité des codes, mor¬ 
celez votre travail en créant 
plusieurs fichiers (Al, A2, A3, 


etc.). Ces derniers devront 
ultérieurement être chargés à 
la suite (LOAD "Al.BIN" : 
LOAD "A2.BIN" : LOAD 
"A3.BIN", etc.) après un 
MEMORY &9CFF et sauve¬ 
gardés ainsi dans un fichier 
unique: 

SAVE "ALIBIN", b, &9D00, 
&420 

Claude Le Moullec 


10 

REM ni 

i : :: 1111 111: 11 : i : :: i : : 

C 1924 3 

20 

REM i 

j 

[419] 

30 

REM î 

REDEFINITION i 

C16223 

40 

REM i 

i 

[4193 

50 

REH ni 

111 :i 11:11 : :: 1111 : i : 11 

[1924] 

60 

SYMBOL 

AFTER 200 

[1432] 

70 

SYMBOL 

221,0,138,142,138,138,138 

[2040] 


,234,0 

80 SYMBOL 222,0,224,128,128,128,128 [25463 
,224,0 

80 SYMBOL 223,0,238,138,13B,234,42, [15933 
238,0 

100 SYMBOL 224,0,238,132,132,196,13 [17993 
2,132,0 

110 SYMBOL 225,0,174,170,170,174,23 [25033 
4,170,0 

120 SYMBOL 226,0,238,168,232,204,16 [15843 
8,174,0 

130 SYMBOL 201,0,0,0,0,1,1,0,1 [16673 

140 SYMBOL 202,14,31,123,245,226,25 [29053 
5,127,103 

150 SYMBOL 203,128,224,192,224,252, [32203 
255 255 ^24 

160 * SYMBOL 204,0,0,0,58,239,255,254 C 20013 
188 

i?0 SYMBOL 205,3,3,1,0,1,3,15,62 [18143 

180 SYMBOL 206,108,113,191,220,179, [26833 
119,127,248 

190 SYMBOL 207,15,252,128,0,192,224 [25303 
253 195 

200*SYMBOL 208,240,0,0,0,0,0,0,128 [ 19473 

210 SYMBOL 209,124,249,0,0,0,0,0,0 [15553 

220 SYMBOL 210,231,223,0,0,0,0,0,0 [20163 

230 SYMBOL 211,63,255,0,0,0,0,0,0 [23453 

240 SYMBOL 212,192,192,0,0,0,0,0,0 [18363 

250 SYMBOL 247,0,240 , 144,144,240 , 19 [23143 
2,160,144 

260 SYMBOL 248,0,240,144,128,240,16 [29.443 
,144,240 

270 SYMBOL 249,0,0,240,144,128,128, [23033 

144,240 

280 SYMBOL 250,0,0,240.144,144,144, [23903 

144.240 

290 SYMBOL 252,0,0,240,144,240,128, [24723 

128.240 

300 MEMORY &7FFF:CLSt L0CATE 1,1:PRI [6923 
NT’PATIENCE" 

310 LOAD "! al ibin",&9B00 [5493 

320 REM 1111 u i ! 1 111 1 1 11 1111 1 1 1 11 [ 1924 3 

330 REM i ! [4193 

340 REM i VARIABLES DE BASE i [20813 

350 REM i I [4193 


360 REM ! : : 11 : : :i: s :i: : : :■:111 : : s [ 1924 3 
370 DEFINT A-YiGOSUB 2490 [10993 

380 CALL RBBFF: MODE OiBORDER 0 [ 16333 

390 INK 0,0:INK !,26:1NK 2,13:1NK 3 [50943 
,24:INK 4,6:INK 5,16:INK 6,18:INK 7 
,9: INK 8,2:INK 9,111INK 10,14iINK 1 
1,8: INK 12,4:INK 13,3:INK 14,4:INK 
15,19 

400 DIM SP(20): FOR H=0 T0 15:SP(H +1 [26793 
)=R9D00+(H*64):NEXT 

410 DEF FN PA(X,Y)=&C0O0+(Y-l)«80+( [15023 
X-l)*4 

420 DEF FN PO(X,Y)=RF7B0+(Y-l)«80+( [10523 
X-l)*2 

430 G0SUB 2930:CLS [12443 

440 sco't=CHRt(248) +CHR* 12491+CHR* (2 [22183 
50) 

450 recP=CHRt(247)+CHRt(252)+CHRt(2 [22053 
49) 

460 REC=0iTA=l [10743 

470 TRP=CHRP(22)+CHRP(1) [8063 

480 NR«=CHR»(22)+CHRt(0> [7003 

490 TT=200:SC=0:VIE=5 [8463 

500 ENV 1,100,3,1:ENT 1,100,2,2 [10213 

510 ENT 2,10,-2,2:ENV 2,10,-1,2 [14233 

520 ENT 3,15,-1,3:ENV 3,15,-1,3 [7543 

530 REM : : : i i : : : : : : : i : : i : : : : ) : : : i [ 19243 
540 REM : : [4193 

550 REM : DESSIN DE BASE : [21283 

560 REM l : [4193 

570 REM :: : î : : : : : :::::: : 11 : : : : : : : [19243 

580 FOR H=1 T0 24 STEP 2:CALL LA04E [53523 

, F N PA ( 1 ,H) ,SP ( 6) : CALL S.A04E.FN PA < 

20, H) , SP < 6) : NEXT 

590 FOR H=18 T0 32 STEP 2:PL0T H,1, [46833 
0:DRAW H,400:PLDT 590+H,1 : DRAW 590 + 

H,400:NEXT 

600 FOR b=64 TD 390 STEP 48:PL0T 18 [25323 
,h,8:DRAW 622,h:NEXT 

610 P0KE RA05E,8:FOR H=1 T0 20:CALL [37173 
RA04E.FN PA(H,25),SP(6) 

620 NEXT:P0KE LA05E,16:CALL LA04E.F [29213 
N Po(2,2),sp(11 ) 

630 P0KE RA05E,7:FOR h=15 T0 19:CAL [38333 
L RA04E,FN PA(H,1)+2,SP(1):NEXT:P0K 
E RA05E,16 

640 PLOT -10,-10,15:F0R h=l T0 3:TA [35413 
G:M0VE h*20,400:PRINT MIDF < scol,h , 1 
>1 

650 M0VE 6*20+224,400:PRINT MIDtlre [22983 
c*,h,1)|:TAG0FF:NEXT 

660 PEN 11 :L0CATE 4,1 :PRINT"0000”:L [37703 


OCATE I1,1:PRINT‘0000" 

670 GOSUB 2120:G0SUB 2160 [10693 

680 REM [19243 

690 REM : : [4193 

700 REM : CHOIX L DESSIN TAB : [14153 

710 REM : : [4193 

720 REM : I :::::::: : : :::: I : :::: I : : [19243 

730 ON TA GOTO 740,750,760,770,780, [20093 
790,B00,810,820,830 

740 REST0RE 3760:GOSUB 840:G0T0 960 [8533 

750 RESTORE 3790:G0SUB 840:G0T0 960 [23063 

760 RESTORE 3820:G0SUB 840:G0T0 960 [18353 

770 P0KE RA048,652: P0KE J.A04B, LD : RE [34173 

STORE 3850:GOSUB 840:G0T0 960 

780 POKE &A048 ,L9D| POKE RA04B, U8: R [36833 

ESTORE 3880:GOSUB 840:G0T0 960 

790 RESTORE 3910:G0SUB 840:G0T0 960 [12623 

800 RESTORE 3940:G0SUB 840:G0T0 960 [19543 

810 POKE RA048,R52:P0KE RA04B,6D:RE [34173 

STORE 3970:GOSUB B40:G0T0 960 

820 RESTORE 4000:G0SUB 840:G0TO 960 [19623 

830 POKE RA04B,R9D:P0KE RA04B,t,18:R [32323 

ESTORE 4040lGOSUB 840:G0T0 960 

840 FOR H = 64 TO 356 STEP 48:READ A: [33773 

PLOT A,H,0 : DRAW A+64,H:NEXT 

850 READ PASS:POKE 6A05E,4:FOR H*1 [26433 

TO PASS:READ A,B,C 

860 FOR G=A TO B:CALL RA04E,FN PA(G [31973 
,C),SP(6):NEXT G 

870 NEXT H :POKE RA05E.16 [7733 

880 READ SAC: FOR H=1 TO SAC: READ A, [15343 
B 

890 CALL RA04E,FN PO(A,B),SP(12): NE [ 16943 
XT 

900 READ vit:RETURN [16663 

910 REM [1924] 

920 REM : : [4193 

930 REM : ROUTINE PRINCIPALE : [22251 

940 REM i : [4193 

950 REM : : : : : : : : : : s : : : : : : : : : : i : : i [ 1924 3 

960 CALL RA04E.FN po<19,23),sp(5):E [36183 
VERY vit,1 GOSUB 2870 

970 x = 19i y*=23fx 1 = « :yl = y [15863 

980 IF INKEY(HA)=0 THEN GOTO 1070 [7603 

990 IF INKEY(FE)=0 THEN GOTO 1070 [22063 

1000 IF INKEY <GA)=0 THEN GOTO 1210 [13B4] 
1010 IF INKEY(DA)=0 THEN GOTO 1330 [11523 
1020 CALL S,A04E,FN po<>: ,y ) ,sp (5) : ac [21323 

1030 FOR T = 1 TO TT : NEXT [20883 

1040 CALL RAOBDiIF PEEK(LAOBC)=0 TH [27053 
EN 1490 


23 













1050 GOTO 980 [494] 

1040 REM lin SAUTE in in [772] 
1070 SOUND 1,200,45,15,3,3!IF y*2 T [2497] 
HEN 1570 

1080 CALL 4A07AI IF PEEK<*rA079> = 1 TH [3354] 
EN GOSUB 1140]GOTO 1090 ELSE 1100 
1090 IF y-23 THEN fin-liGOTO 1570 E [2512] 
LSE 1570 

1100 DI I FOR h»l TO 3iy-y-1iCALL IAO [2797] 
4E,FN poix 1,yl),sp <71 


1110 CALL LA04E.FN po(x,y),sp(5) [1409] 

1120 y 1 * y ! FOR t-1 TO SOiNEXT t.h 12043) 
1130 El I GOTO 1040 [4211 

1140 DIiPOKE RA048,4AEiCALL RA04E.F [2554] 
N po(x,y),sp(5) 

1150 CALL 4A04E,FN po(x,y-l),sp(5) [1843] 

1140 FOR t-1 TO 40iNEXT t [1083] 

1170 CALL 4A04E,FN po(x,y-1>,sp(5) [1843) 

1180 CALL EA04E,FN po(x,y),sp(5) [1409] 

1190 POKE EA04B,0iEliRETURN [1358] 

1200 REM nu A GAUCHE nu il (944) 

1210 IF x-l<3 THEN 1890 [1889] 


1220 IF PEEKIFN PO(X,Y)+78I<>0 AND [2405] 
x>4 THEN GOSUB 1730 

1230 x-x-1iCALL *A102,FN po<x1+1,yl [2421] 

) 

1240 CALL EA04E,FN po(x,y>,sp(2) [1419] 

1250 x 1-x I y 1-yiFOR t-1 TO TT-40iNEX [ 1477] 
T 

1240 SOUND 1,300,5,1,1,1,15 [1447] 

1270 x-x-liIF x<3 THEN x-x+liGOTO 1 [1924] 
030 

12B0 CALL tcAl02,FN po(xl+l,yl) [775] 

1290 CALL (>A04E,FN po(x,y).sp(4) [1415) 

1300 x1-xiy1-yiFOR t-1 TO TT/2iNEXT [1428) 
1310 GOTO 1040 (343) 

1320 REMiiii A DROITE .. 1444] 

1330 IF x+1>37 THEN 1030 [1544] 

1340 IF PEEKIFN PO(X,Y)+B4)<>0 THEN [1444] 
GOSUB 1740 

1350 x-x + 1 1 CALL (<A102,FN po<x 1,y 1 ) [2741 ] 

1340 CALL EA04E,FN po(x,y),sp(I) [1417] 

1370 xl-xiy1-yIFOR t-1 TO TT-40iNEX [1477) 
T 

1380 SOUND 1,300,5,1,1,1,15 [1447] 

1390 x-x + 1 1 IF x >37 THEN x*x-liGOTO [2480] 
1030 

1400 CALL AA 102,FN po(xl,yl) [845] 

1410 CALL AA04E,FN po(x,y),sp(3) [1413] 

1420 x1-xiy1-yiFOR t-1 TO TT/2iNEXT [1428] 
1430 GOTO 1040 [3431 

1440 REM 11 i 1111 11ll1111I1 !11 11 111 [ 1924] 

1450 REM i I [419] 

1440 REM i ALI TOMBE i [931] 

1470 REM l l [4191 

1480 REM i 1111 l 11! i 11111l11i1111il [ 1924] 
1490 DIly-y+llCALL AA04E.FN po(xl,y [18011 
1),sp(7) 

1500 CALL AA04E,FN po(x,y),sp(act ) [2224] 

1510 y1-yI IF PEEK(FN po(x,y)+242)< > [3559] 
0 THEN GOSUB 1800 

1520 FOR H-l TO 2 [B07) 

1530 y-y+liCALL 4A04E,FN po(xl,yll, [3449) 
sp ( 71 

1540 CALL AA04E,FN po(x,y),sp(act) [2224] 

1550 yl-yiFOR t-1 TO 50iNEXT [1905] 

1540 NEXT HlEIîIF Y-23 THEN FIN-1 [1144] 
1570 CALL AA04E.FN po(x,y),sp(B) [1831] 

1580 FOR t-1 TO 50iNEXT [997] 

1590 CALL AA04E,FN po(x,y),sp(9) [1825] 

1400 CALL IAOBD 1 IF PEEK UAOBC) =0 TH [3930] 
EN act-8itb«OlGOTO 1490 

1410 CALL AA04E,FN po(x,y),sp(B) [1B31J 

1420 SOUND 1,20,10,15,2,2,3 [1431] 

1430 CALL AA04E,FN po(x,y),sp(9) [1825] 

1440 tb-tb+1iIF tb-20 THEN tb-OiGOT [1595] 
0 1440 

1450 GOTO 1570 [385] 

1440 IF Fin=1 THEN 2250 [1007] 

1470 GOTO 1040 [343] 

1480 REM l l 1 1 1 I 11 1 1111I 1111 1 1 1 1 I 1 I [ 1924] 
1490 REM 1 1 [419] 

1700 REM 1 RAMASSER SAC 1 [1117] 

1710 REM 1 1 [419] 

1720 REM .. 1 11 I l l 1 1 1 1 1 I 1 1 1 l [ 1924] 

1730 CALL AA04E,FN po(X-2,Y),SP(7 )1 [2185] 
GOTO 1750 

1740 CALL AA04E,FN po(X+2,Y),SP(7) [1813] 

1750 SC-SC+1iGOSUB 2120iS0UND 1,200 [1817] 
,3,5 

1740 SCA-SCA+1 1 IF SCA-SAC THEN 1770 [2175] 
ELSE RETURN 

1770 CALL AA04E,FN po<2,2),SP(10> 1 p [2440] 
orte=l 

1780 SOUND 1,2054,40,15iRETURN [1934] 

1790 REM in TOMBER SUR SAC s I ! 1 (12B6) 

1800 CALL AA04E,FN po ( X,Y-2),SP(7) [1714] 

1810 SC-SC+1 1 GOSUB 2120iS0UND 1,200 [1817] 
,3,5 

1820 SCA-SCA+1 1 1F SCA-SAC THEN 1B30 [2308] 
ELSE RETURN 

1830 CALL AA04E,FN po(2,2),SP(10) 1 p [3349] 
or te-1 1 RETURN 

1840 REM 111111111111111111 1 1 1 1 1 l 1 [ 1924] 


1850 REM 1 1 

1840 REM 1 PASSER LA PORTE 

1870 REM 1 1 

1880 REM II I I I 1 ! I I ! II ! ! I 1 ! I I I ! I 1 I I 

1890 1F y< >2 THEN 1030 

1900 IF porte-0 THEN 1980 

1910 CALL EA04E,FN poix 1,yl),sp(7) 

1920 CALL !cA04E,FN po (2,2) , sp ( 11 ) 

1930 SC=SC+10iGOSUB 2120iREM un OS 

? tel 94 38 94 24 

1940 SOUND 1,2054,40,15iporte=0 

1950 ta-ta + 1 1 IF ta>lO THEN ta=l 

1940 sca-OiCLSiGOTO 500 

1970 REM 1 ! 11 REJET nu 

1980 CALL EA04E.FN Po(2,2),sp(11) 

1990 CALL RA04E,FN Po(4,y),sp(7) 

2000 FOR h=4 TO 13 

2010 CALL LA04E,FN Po(h,y),sp(8) 

2020 FOR t-1 TO 1OiNEXT t 

2030 CALL 4A04E,FN Po(h,y),spI9) 

2040 CALL EAÛ4£,FN Po(h,y),sp(7) 

2050 NEXT h 

2040 CALL FA04E,FN Po(13,y),sp(9)i 
= 13ixl = x 1 GOTO 1570 
2070 REM 1 ■ ■ ■ 1 u 1 ■ 111 ! 111 1 ! 1 : 11 1 1 

2080 REM 1 1 

2090 REM 1 GESTION DES SCORES 1 

2100 REM 1 i 

2110 REM 1:1 ! ■ u I ■ u 11111111 u 111 


[4191 8,1 1 0 U T 48384,HiSOUND 1,10 + H + 3,5,3, 

[1008) 4,4 1 FOR T-1 TO 40iNEXT T,H 

1 4 17 ] 2340 HINDOU #7,5,14,10,18!PAPER #7, [22701 

11924) (, )CLS #7 

17351 2350 WINDOH 44,4,15,11,17iPAPER «4, [2777] 

[592] 4,CLS 44 

[ 1 434) 2340 PEN liLOCATE 8,12i PRINT tr«j"E [2488] 

[1929] SPACE" 

[2821J 





2120 IF SC-0 THEN PEN lllLOCATE 4,1 11924) 
1 PR INT"0000"iRETURN 

2130 PEN 1111F SC>99 THEN LOCATE 4, [4539] 
liPRINT" " 1 LOCATE 3,1 1 PR I NT TR* j S 
C|NRFlRETURN 

2140 IF SC>9 THEN LOCATE 5,1 1 PRINT“ [5955] 
" 1 LOCATE 4,1 1 PR INT TR*)SC ;NRiiRET 
URN 

2150 LOCATE 6,1 1 PRINT” ":LOCATE 5,1 [4595] 

1 PRI NT TR F) SC) NRF 1 RETURN 

2140 IF REC-0 THEN PEN 11 1 LOCATE 11 [2499] 

,1iPRINT"0000’iRETURN 

2170 PEN 11 1 IF REC>99 THEN LOCATE 1 [5477) 
1,1 1 PRINT” "iLOCATE 10,1 1 PRINT TR 
F)REC)NRFiRETURN 

2180 IF REC>9 THEN LOCATE 12,1 1 PRIN [53881 
T" " 1 LOCATE 11,1 1 PRINT TR*)REC)NRF 


iRETURN 

2190 LOCATE 13,liPRINT” "lLOCATE 12 [3454] 
,1 1 PRINT TRF)REC|NRFiRETURN 

2200 REM u 1111 ... 111 . [ 1924] 

2210 REM 1 1 [419] 

2220 REM 1 VIE -1 4 PERDU i [1014] 

2230 REM l 1 1419] 

2240 REM 1111 ■ 1 ■ 111 u 11 1 1 1u 111111 [ 1 924] 

2250 FIN-OiVIE-VIE-I [702] 

2240 POKE 4A05E,7 1 CALL 4A04E.FN PA< [3584] 
15+VIE,l)+2,SP(7)iP0KE 4A05E.14 
2270 IF VIE-0 THEN 2290 [484] 

2280 GOTO 980 [494] 

2290 REM un PERDU un [754 ] 

2300 mu-REMAIN<11 1 El [997] 

2310 FOR h-l TO 40lSOUND 1,2050-150 [2453] 
*h),10 ,ISiNEXT 

2320 ENT 4,150,5,12iENV 4,10,5,3 [704] 


2330 FOR H-40 TO 0 STEP -2iOUT 4812 [4895] 


2370 PEN 9iL0CATE 9,14î PRINT "POUR" 
2380 PEN 14iLOCATE 7,14iPRINT "REPA 
RT IR”)nrF 

2390 OUT 481 28,1 : OUT 48384,1 : FOR H- 
0 TO 40 STEP 2 1 iOUT 48128,1 1 OUT 483 
84,H 

2400 SOUND 1,10 + H + 3,5,3,4,4 : FOR T-1 
TO 40 1 NEXT T,H 

2410 HHILE INKEYF< >“" 1 HENDiGOTO 279 

0 

2420 IF SOREC THEN REC-SC 
2430 EIlTA-IiSCA-OlPORTE-OiCLSlGOTO 
490 

2440 REM 1 u 1 1 u 1 1 111 n 1 11 11 u 1 1 u 
2450 REM 1 1 

2440 REM 1 LA MUSIQUE 1 

2470 REM 1 I 

2480 REM 1 u ■ 11111 u 11111 u 1 1 u 111 


2490 DIM isusi (340,51 
2500 aF-"12324554755482329"iFOR h-l 
TO LEN(A*)ia=VAL(MID*(A*,h, 1 ) ] 

2510 ON a GOSUB 2530,2540,2550,2540 
,2570,2580,2590,2400,2410 


2520 NEXTiRETURN 
2530 RESTORE 2440iGOSUB 
2540 RESTORE 2470lG0SUB 
2550 RESTORE 2700|G0SUB 
2540 RESTORE 2710lG0SUB 
2570 RESTORE 2720iGOSUB 
2580 RESTORE 2730 1 GOSUB 
2590 RESTORE 2750iG0SUB 
2400 RESTORE 2740lG0SUB 
2410 RESTORE 2770lGOSUB 
2420 READ nbiFOR g=l TO 

,M,e 


2620» RETURN 
2620 1 RETURN 
2620 j RETURN 
2620 1 RETURN 
2620 » RETURN 
2620» RETURN 
2620 » RETURN 
2620» RETURN 
2620» RETURN 
nb» READ C,P 


2630 nt=nt+l 


2640 mu si< n t,i)=c j mu si<nt,2)=p» muai 
<nt,3)=Z*2îmu5i<nt,4)=vjmusi <nt,5) c 


e 


C18103 
[29323 

[40063 


[27153 

[21593 

[6873 

[18663 

[19243 

[4193 

[9263 

[4193 

[19243 

[5043 

[37963 

[24703 

[9403 

[14293 

[26383 

[20523 

[26383 

[22133 

[18233 

[18803 

[25403 

[19503 

[17463 

[3073 

[49753 
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2450 NEXTiRETURN [9402 

2440 DATA 3,1,239,2,15,0,2,0,2,0,0, [14711 
4,0,2,0,0 

2470 DATA 38,2,0,2,0,0,1,179,1.5,15 [94391 

,0,4,358,2,14,0,1,190,0.5,15,0,2,23 

9,2,0,5,4,284,2,0,5,1,179,1.5,15,0, 

1,142,0.5,15,0,2,239,2,0,5,4,284,2, 

0,5,1,95,2,15,0,1,104,2,0,5,2,239,2 

,0,5,4,284,2,0,5 

2480 DATA 1,104,5,15,0,2,0,2,0,0,4, [71701 

478,2,15,0,2,248,2,0,5,4,379,2,0,5, 

2,248,2,0,5,4,379,2,0,5,1,119,1,15, 

0,1,134,1,15,0,2,248,2,0,5,4,379,2, 

0,5,1,159,1,15,0 

2490 DATA 1,213,2,15,0,2,0,2,0,0,4, [73001 
478,2,15,0,1,190,2,15,0,2,248,2,0,5 
,4,379,2,0,5,1,142,2,15,0,2,248,2,0 
,5,4,379,2,0,5,1,159,2,15,0,2,248,2 
,0,5,4,379,2,0,5 

2700 DATA 9,2,0,8,0,0,1,239,5,0,3,4 C57501 
,358,2,13,0,4,284,2,0,5,4,284.2,14, 
0,4,0,2,0,0,1,239,1,15,0,1,213,1,15 
,0,1,190,1,15,0 

2710 DATA 10,1,179,4,15,0,2,0,2,0,0 C38913 

,4,358,2,14,0,2,239,2,0,5,4,284,2,0 

,5,2,239,2,0,5,4,284,2,0,5,1,0,2,0, 

0 , 2 , 0 , 2 , 0 , 0 , 4 , 0 , 2 , 0,0 

2720 DATA 18,2,0,2,0,0,4,424,2,14,0 [10040] 
,1,71,0.5,0,4,1,71,0.5,0,4,1,71,0.5 
,0,4,1,71,0.5,0,4,1,71,1,0,4,2,284, 
2,14,0,4,358,2,14,0,1 ,75,1,0,4,1,71 
,1,0,4,2,0,2,0,0,4,424,2,14,0,1,47, 

1,0,4,1,89,1,15,0,2,248,2,14,0,4,31 
9,2,14,0,1,80,1,15,0 

2730 DATA 20,2,0,2,0,0,4,424,2,14,0 [4414] 
,1,71,0.5,0,4,1,71,0.5,0,4,1,71,0.5 
■ ,0,4,1,71,0.5,0,4,1,71,1,0,4,2,284, 
2,14,0,4,358,2,14,0,1,47,1,15,0 
2740 DATA 2,0,2,0,0,4,424,2,14,0,1, [5799] 
40,0.5,0,4,1,40,0.5,0,4,1,40,0.5,0, 
4,1,40,0.5,0,4,1,40,1,0,4,2,284,2,1 
4,0,4,358,2,14,0,1,54,1,15,0 
2750 DATA 18,2,0,2,0,0,4,478,2,14,0 [10581] 
, 1,53,0.5,0,4 , 1,53,0.5,0,4 , 1 ,53,0.5 
,0,4,1,53,0.5,0,4,2,24B,2,14,0,4,37 
9,2,14,0,1,53,1,0,4,1,40,1,15,0,2,0 
,2,0,0,4,478,2,14,0,1,47,1,15,0,1,7 


1,1,15,0,1,80,1,15,0,1,75,1,15,0,2, 

248,2,14,0,4,379,2,14,0 

2740 DATA 18,2,0,2,0,0,4,478,2,14,0 [112413 

,1,53,0.5,0,4,1,53,0.5,0,4,1,53,0.5 

,0,4,1,53,0.5,0,4,1,53,1,15,0,1,47, 

1,15,0,2,248,2,14,0,4,319,2,14,0,1, 

45,1,15,0,1,239,1,15,0,2,284,2,14,0 

,4,358,2,14,0,2,0,2,0,0,4,0,2,0,0,1 

,213,1,15,0,1,190,1,15,0 

2770 DATA 4,1,179,3,15,0,2,284,3,15 [3428] 

,0,4,358,3,15,0,1,0,2,0,0,2,0,2,0,0 

, 4,0,2,0,0 

2780 REM mi JOUER MUSIQUE ni: [1517] 

2790 ENV 5,2,4,l,l,0,40,7,-l,liENV [3453] 

3,3,5,1,1,O,90,7,-1,11ENV 4,3,5,1,7 
,-1,2 

2800 Z = 1iEVERY 5,2 GOSUB 2850 [1798] 

2810 IF FM=1 THEN FM=OiGOTO 2840 [899] 

2820 Z = Z + 1s IF 2 = 338 THEN Z = 1 [13123 

2830 SOUND muai(Z,1),muai(Z,2),»usi [4903] 
(Z,3)*9,muai(Z,4),muai(Z,5) ,0 


2840 GOTO 2810 £3373 

2850 a*=INKEY*iIF a*=”“ THEN RETURM [27413 
ELSE fm=1iRETURN 

2840 MU=REMAIN(2)iCALL RBCA7iG0T0 2 [1841] 
420 

2870 DIiCALL AA023iEliRETURN [1040] 

2880 REM l 11111 1111 I 1 ! Il 11 I I I 11 l l l [1924] 
2890 REM l i [419] 

2900 REM i PRESENTATION i [1447] 

2910 REM i , (4193 

2920 REM il 1 n n ■■ iilin 1111 il i : , : [19241 

2930 ENV 5,2,4,l,l,0,40,7,-l,liENV [3453] 
3,3,5,1,1,0,90,7,-1,IlENV 4,3,5,1,7 

,” 1,2 ___ _ _ 

2940 EVERY 5,2 GOSUB 3470 [1050] 

2950 INK 13,Oiali3i=CHRP(209)+CHRP< [2144] 
210)+CHR*(211)+CHRi(212> 

2940 ali2i=CHR*(205HCHR4(204M-CHR* [2118] 
(207)+CHR4(208) 

2970 a!il*=CHR*(20l)+CHR*(202)+CHR* [37443 
(203)+CHR4(204) 

2980 LMC*=CHR*(221)+CHR«(222)+CHR*< [40203 
223) +CHRI(224)+CHRF(225>+CHRP<224) 

2990 PEN 13iLOCATE 1,1 1 PRINT alilli [53383 
LOCATE 1,2iPRINT ali2*iL0CATE !,3iP 
RINT ali 3* 

3000 FOR h=0 TO 128 STEP 2iF0R g=35 [30253 
2 TO 400 STEP 2 

3010 a=TEST(h,g)I IF a»13 THEN GOSUB [2844] 
3030 

3020 NEXT g,hiGOTO 3070 [1247] 

3030 PLOT 40+(h*2), 80+ <(g — 382)*3),4 [19783 
! PLOT 400-(h*2),80+((g-382)*3) 

3040 PLOT 40+(h+2), 82+((g-382)*3)iP [23923 
LOT 400-(h*2),82+<(g-382)*3) 

3050 PLOT 40+(h*2) ,78■*-< (g-382) »3) iP [2474] 
LOT 400-(h+2),78+(<g-382)*3) 

3040 RETURN [555] 

3070 a*="LE RETOUR"i*=178iy=220ienc [37873 
=3iGOSUB 3090 

3080 a*=“D'ALI GATOR"ix=144iy*140ie [50933 
nc=l1iGOSUB 3090iGOTO 3140 
3090 PEN 13iLOCATE 1,1 1 PRINT a* [ 1490] 
3100 FOR h = 0 TO LEN(a*)+32 STEP 4 1 F 1 1989] 
OR g=384 TO 400 STEP 2 

3110 a=TEST(h,g)iIF a=13 THEN GOSU [2848] 
B 3130 


Des Kilo-Octets à foison! Hors-Série 
Dans nos anciens numéros LISTINGS CPC 


Vérificateurs V.2 

Monde 

Calculatrice 

Chess 

Supertest 

Hélico 


Vérificateurs V.2 

Buffer d'imprimante 
Amsaisie 

Chenille 

Création auto, de datas 
Super glups 3D 

Hardcopy & fenêtre 

La bécane en folie 
Coccinelle 

Vérificateur V.3 (PCW) 
Othello (PCW) 

La ville infernale (PCW) 


Vérificateurs V.2 

Amsaisie 

Sloopi 

Image 

Les ouvertures 
Trembloteur 

Carte 

3D Madness 

Windrad 

Vérificateur V.3 (PCW) 
Mission detector (PCW) 


Amsaisie 

Boxe 

Gestion de périphériques 
nuclear alert 

Ali Gator 

Move 

Ca va péter Zorglub! 


Vérificateurs V.2 

Amsaisie 

Jeason 

Ping & Pong C. K 

Spriter & Implant 

Military School 

Assembhr 

Loupe 

Dayton U.S. A 

Pac 

Naufrage 

H-S n°2 

H-S n°5 

H-S n°6 

H-S n°7 

H-S n°10 


BON DE COMMANDE 


Pour commander nos anciens numéros H-S listings, remplissez très lisiblement ce bon et adressez-le avec votre 
règlement à : MICRO-MAG, service diffusion, 5/7, rue de l'Amiral Courbet, 94160 Saint Mandé. 

Nom : .Prénom : . 

Adresse : . . . 

Cochez les numéros désirés : mi 5 || 6 || 7 llio I 

Je commande.anciens numéros au prix unitaire de 25 F, soit.x 25 + 5 F de frais de port =.F 

Règlement par mandat, chèque bancaire ou postal à l'ordre de LASER PRESSE. 
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3120 NEXT g , hiRETURN 

3130 PLOT x*h,y*((g-3821*21,enciPLO 

T *+h,y-2*((g-382)*Z)iRETURN 

3140 WINDOW «1,1,11,1,41CLS * 11INK 

13,3 

3150 PLOT -10,-10,7sTAGiMOVE 40,370 
iPRINT LMC»;iTAGOFF 
3160 FOR H-l Tfl 5iM0VE 30,HiDRAW 61 
0,H,4iNEXTiFOR H=6 TO 20)M0VE 30,Hi 
DRAW 610,H,8:NEXT 

3170 FOR H = 20 TO 22)MOVE 30,HiDRAW 

610,H,11NEXT1FOR H*1 TO 81MOVE H,26 

■ DRAW N,374,4:NEXT 

3180 FOR H = B TO 2CUM0VE H,26lDRAW H 

,374,81NEXT.FOR H = 20 TO 22)M0VE H,2 

6:DRAW H, 374,1 1NEXT 

3190 FOR H=616 TO 620iM0VE H,26iDRA 

W H,374,11NEXTiFOR H=620 TO 632iH0V 

E H,26)DRAW H, 374,01NEX T 

3200 FOR H=632 TO 636)M0VE H,26:DRA 

W H,374,4)NEXT)F0R H*394 TO 400iM0V 

E 30,HiDRAW i 10,H,4 » NEXT 

3210 FOR H=382 TO 392iM0VE 30,H)DRA 

W 6,10 ,H ,81 NEXT 1 FOR H»378 TO 380lM0V 

E 30,H)DRAW 610,H,11NEX T 

3220 X = 20iFOR T = 1 TO 22)M0VE T,X1 DR 

AW T,20,5iX=X—lïNEXT T 

3230 X-3SO)FOR T»l TO 22)M0VE T,X1D 

RAW T . 3B0 ) X*X * 11 NE X T T 

3240 X = 3801 FOR T = 618 TO 636|MOOE T, 

3801 DRAW 618,X)X = X*liNEXT T 

3250 X=11FQR T=618 TO 63i)M0VE T,20 

: DRAW T,X)X = X + 1)NEXT T 

3260 POKE 1A05E,81 FOR h = 5 TO 36 STE 

P 2 r CALL !<A04E,FN po < h , 7 1 , sp ( 61 1 NEX 

T)POKE 1A05E , 16 

3270 CALL 1A04E,FN po<5,51,sp( 12) ) C 
ALL S.A04E,FN po(35,51,sp(121 
3280 x = 8 

3290 CALL 4A04E,FN poix,5),spI11 
3300 FOR t-1 TO 150iNEXT t 
3310 Af* INKEYf > IF AF< >"" THEN 3530 
3320 CALL 8, A10 2, F N poix ,5) 

3330 x=e;*1eCALL .VA04E.FN po(>i,5),sp 

(3) 

3340 FOR t=l TO 150! NEXT t 

3350 Ai* INKEYF1 IF AIO" THEN 3530 

3360 CALL 1, A10 2, F N poix ,5) 

3370 »*»*!) IF >1 >31 THEN 3380 ELSE 3 
290 

3380 x=32 

3390 CALL J,A04E,FN poI>1,5) , sp 121 
3400 FOR t = l TO 150» NEXT t 
3410 AF=I NKEYF) IF AIO"* THEN 3530 
3420 CALL 1A102,FN polx+1,5) 

3430 )I=X-1)CALL 1A04E ,FN po(»,5),5p 

(4) 

3440 FOR t=l TO 150)NEXT t 

3450 AF* I NKEYF ) 1 F AIO"" THEN 3530 

3460 CALL F A 10 2,F N po(x + l,5) 

3470 x = >:-1 ) IF x<10 THEN 3290 ELSE 3 
390 

3480 REM ))>)))))))): ï ))))>)) ) ii) ) 


[1296] 
C 3584 3 

[1743] 

[4354] 

[4848] 

[5083] 

[5699] 

[6348] 

[5526] 

[5456] 

[2950] 

[3296] 

[3310] 

[2075] 

C5657J 


[3611] 

C375] 

[1367] 

[939] 

[20301 

[753] 

[2758] 

[939] 

[2030) 

[753] 

£2700] 

[526] 

[1361] 

[939] 

[2030] 

[771] 

[2694] 

[939] 

[2030] 

[771] 

[19561 

[1924] 


3490 

REM 1 

1 

[4191 

3500 

REM « 

EXPLICATIONS i 

£623] 

3510 

REM 1 

) 

[419] 

3520 

REM J 

11111 1 1 n 111111111111111 

[1924] 

3530 

MODE 

i 11 LOCATE 10,1» PRINT"LE 

£5890) 


RETOUR D'ALI GATOR" 1 PEN 2iL0CATE 10 

,2 1 PR I NT ". 

3540 PEN 3i LOCATE 1,4 1 PR I NT" S'el [8896] 

ever,s'elever toujours plus haut.C' 
est le but de la vie et celui de no 
treHeros..," 

3550 LOCATE 1,8 ! PR I NT M En profite [ 10721 ] 

r pour s'enrichir en ramas-sant les 
sacs d'or.Voila la réglé sinpled'u 
n jeu qui ne l'est pas." 

3560 LOCATE 1,12 s PR I NT” Mais atte [8971 ] 

ntion,dans ce jeu comme dansla vie, 
plus on 5'eleve et plus la chute pe 
ut etre dure." 

3570 LOCATE 1,16)PRINT" Assez de [6634) 
bavardages,1'heure du choix est ven 
ue.... " 

3580 LOCATE 1,19)PRINT" Vivre au [1972] 
ras des pâquerettes,.." 

3590 LOCATE 1,21 s PRINT* Ou attein [4917] 
dre le haut de la pyramide." 

3600 PEN 1)LOCATE B,25)PRINT“JOYSTI [3853] 
CK <J>_CLAVIER <C>" 

3610 AF* I NKEYF e IF AF»"" THEN 3610 U43I1 

3620 AF*UPPERF(AF))IF AF="J” THEN 3 [1744] 
640 

3630 IF A F ="C" THEN 3650 ELSE 3610 [I486] 

3640 GA»74)DA*75)FE*76)HA*72)G0T0 3 [18501 
660 


3650 GA*BiDA»l»FE-9iHA»0 [10221 

3660 CALL FBCA7)EI>MU*REMAIN(2 )1 INK [3907] 
13,3 1 MODE 0)RETURN 

3670 01 1 UN SQIl) GOSUB 36B0)EI)RETU [3082) 
RN 

3680 Z = Z*1 ) IF Z = 33B THEN Z = 1 U3121 

3690 SOUND musiIZ,11,musiIZ,21,musi [4903] 
(Z,3)*9,musi(Z,4),musi(Z,5),0 
3700 RETURN 15551 

3710 REM 11 )11 ) ) i: 1 : 11 ) : 1 1 ) 11 ) 1 ) 11 [ 1924] 

3720 REM 1 ) 1419] 

3730 REM ) DATAS DES 10 TAS ) [1575] 

3740 REM 1 3 lignes par tableau 1 [16321 

3750 REM )e))>:)))): 1 ) ) ) ))))) ) ))) > [ 1924] 

3760 DATA 48,96,128,500,12,300,420 [1216] 

3770 DATA 4,4,7,22,15,17,16,9,12,10 [16281 
,5,6,4 

3780 DATA 2,33,23,19,8,5 [11033 

3790 DATA 56,87,110,550,190,500,330 [1237] 
3800 DATA 7,1,2,22,19,20,19,1,2,16, [3565] 
19,20,13,1,2,10,19,20,7,1,2,4 
3810 DATA 6,3,20,37,17,3,14,37,11,3 [1409] 
8 37 5 5 

3820 DATA 56,56,56,56,56,56,56 [ 1 323] 

3830 DATA 2,1,5,4,19,20,4 [607) 

3840 DATA 1,37,2,5 £625] 

3850 DATA 48,248,448,500,12,300,420 [1110] 
3860 DATA 3,15,17,16,9,12,10,5,6,4 [1306) 

3870 DATA 2,33,23.19,8,5 [11031 


3880 DATA 48,248,448,500,12,300,420 [11101 
3890 DATA 6,1,10,22,13,20,22,1,10,1 [2603] 
9,13,20,19,1,10,16,13,20,16 
3900 DATA 4,21,2,21,5,21, B, 21,11,5 [11021 

3910 DATA 56,87,110,550,190,500,330 11237) 
3920 DATA 1,1,2,4 [6561 

3930 DATA 6,3,20,37,17,3,14,37,11,3 [13951 
8 37 5 3 

3940 DATA 56,56,56,56,56,56,56 [1323) 

3950 DATA 3,1,7,4,7,13,13,14,18,19 [1010] 

3960 DATA 9,3,20,37,17,3,14,37,11,3 [1372] 
,8,37,5,21,2,21,5,21,B, 3 

3970 DATA 48,248,448,500,12,300,420 [1110] 
3980 DATA 1,1,2,4 [6561 

3990 DATA 6,37,11,3,8,37,5,21,2,21, [14351 

5,21,8,3 

4000 DATA 48,248,448,500,12,300,420 [11101 
4010 DATA 3,1,2,4,1,10,16,13,20,16 [15281 

4020 DATA 6,37,11,3,8,37,5,21,2,21, [1435] 

5.21.8.3 

4030 DATA 4,21,2,21,5,21,8,21,11,5 C11023 
4040 DATA 56,56,56,56,56,56,56 [1323) 

4050 DATA 1,1,2,4 [656] 

4060 DATA 8,5,2,9,2,13,2,17,2,21,2, C2173J 

25.2.29.2.33.2.3 

4070 REM eee : e 1 ee s s ) 1 ) s 1 1 : : :))1 e s 1 [ 1924] 
4080 REM e ) [4191 

4090 REM b EXPLICATIONS LM ) C1I60] 

4100 REM ) (facultatif) 1 T12431 

4110 REM e.. e s e : ) : ) s e : ) 1 ) ) ) ) ) s [ 1 9241 

4120 REM pour les accros de 1 'assem [56191 
bleur petit commentaire des routine 
s 

4130 REM de F9d0(i # 1,9fff (13 sprit [37021 
es cr((s avec SPRITECREA (AMS MAG n 
r 39) 

4140 REM call FaOOO calcul add ecra [30B8] 
n sous une position donnée 
4150 REM FaOOd scrolling droite d'u [1634) 
n plancher 

4160 REM FaOlB scrolling gauche d'u [4066] 
n plancher 

4170 REM call Fa023 appel simultané [3859] 
du scrolling des 7 planchers 
4180 REM call Fa04e,adec,adram affi [9055] 
chage d'un sprite stoclie en ADRAM a 
l'adresse écran ADEC [technique la 
rgement explicite dans AMS MAG nr 3 
9) 

4190 REM call Fa07a,cette routine t C9B4BJ 
este les 8 octets se trouvant sous 
le personnage.S’ i 1 5 sont tous a zer 
o,il n'y a donc plus rien sous lui. 

4200 REM la valeur 1 est mise en Fa [4017] 

07f pour signaler une chute 

4210 REM call FaObd.meme principe m [8583] 

ais pour au dessus du personnage po 

ur tester s'il ne se casse pas la t 

ete . 

4220 REM call Fal02,adec affichage 151751 
d'une demie matrice vide pour effac 
er le personnage lors des deplaceme 
nts 
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CAR' PRINTER 

Un redéfinisseur de caractères ori¬ 
ginal qui offre le luxe d'imprimer 
vos textes parés de polices de votre 
cru. 


€tû esft im exemple &e texte créé l 
VA kmh «ne police 

k uuitzm 
Z Ûii 


le* mjttmïM' ; 




M * 


tt 


i '>•11 miWtf A»'i*‘rtfff p i>’if * 


es’ acte 

les elttfCees : 

0123496789 

Iis sipes k ponctuation : 

A < Wr 

Ht... 

Cttej nuinteiunt ira» jcujiw ttlitw... 


T 1 nécessite un lecteur de 
/ disquette, une impri¬ 
mante DMP 2000 ou 
compatible Epson et offre les 
fonctions suivantes: 

- création d'un texte par édi¬ 
teur pleine page, 

- définition d'une police de 
caractères, 

- impression d'un texte préa¬ 
lablement créé selon une poli¬ 
ce de caractères pré-définie. 

Avantages par 
rapport au 

téléchargement de 
caractères 

- 192 caractères redéfinis¬ 
sables (de code ASCII com¬ 
pris entre 0 et 191) contre 32 
caractères téléchargeables 
seulement. 

-18 x 21 points de dimension 
(permettant la création de 
logos) contre 11 x 7 points 
pour un caractère téléchargé. 

- Création de polices de carac¬ 
tères accessibles à tous et ne 
réclamant aucun calcul fasti¬ 
dieux ni connaissance parti¬ 
culière du fonctionnement de 
l'imprimante. 


Programmes 

CAR'PRINTER, pour des rai¬ 
son de place mémoire, se 
compose de quatre pro¬ 
grammes: 

- MENU.BAS: donnant accès 
aux trois programmes sui¬ 
vants: 

- EDITTEX.BAS: on dispose 
d'une page de 40 x 25 carac¬ 
tères. Tous les caractères de 
code ASCII compris entre 0 et 
191 sont acceptés par le pro¬ 
gramme. Ils sont accessibles 
en appuyant sur COPY, puis 
en entrant le code ASCII du 
caractère désiré (0-191). 
L'utilisateur peut ainsi inscri¬ 
re sur l'écran des caractères 
non accessibles au clavier 
(127- 191 par exemple). Les 
autres touches autorisées 
sont: 

Touches fléchées : déplace¬ 
ment du curseur dans la page 
écran. 

SHIFT/[: é 
SHIFT/J: è 
à 

SHIFT/®: ç 

ENTER, DEL, CLR: fonctions 
usuelles. 

TAB: sortie de la page écran 
et retour au menu de l'édi¬ 
teur. 


NB. Les textes sont sauvés sur 
disquette avec l'extension 
".TEX". 

- EDITCAR.BAS: l'utilisateur 
indique (directement ou après 
recherche) le code ASCII du 
caractère qu'il désire créer ou 
modifier. Le programme l'af¬ 
fiche tel qu'il sortira sur 
imprimante et demande la 
configuration du choix. 
Ensuite, deux grilles aux 
dimensions du caractère s'af¬ 
fichent: 

* une petite offrant une «vue 
d'ensemble» du caractère; 


* une grande qui est une 
loupe de la précédente, et 
dans laquelle se déplace un 
curseur. 

Toutes les commandes de 
l'éditeur de caractères sont 
affichées en permanence sur 
la droite. 

N.B. Les polices de caractères 
sont sauvées sur disquette 
avec l'extension ".CAR". 

- PRINTER.BAS : impression 
d'un texte. Seul impératif, dis¬ 
poser d'une imprimante de 
type Epson. 

Matthieu Polet 


Caractères 

rencontrés dans 

Clavier 

Affichage 

ASCII 

ce listing 

cwbtty 

AZERTY 

OffillY 

AZERTY 

CHR$() 

{ 

{ 

è 

{ 

è 

1 23 

} 

} 

é 

} 

é 

125 


1 ’*************************** [10513 

2 '* * [1753 

3 '# CAR'PRINTER * [8183 

4 '* de Matthieu POLET * [8093 


5 '* a sauver par ssve"MENU" * [15743 

6 '* * H753 

7 '**##*##**#***#*##*********# [10513 

10 SYMBOL AFTER 125ïSYMB0L 125,48,8 [29573 
,60,102,126,96,60 

20 MODE 1 ; BORDER 10s INK 0,0s INK 1,2 [34883 
3:INK 2,10 

30 L0CATE 15,3s PEN 2:PRINT "MENU GE [34503 
NERAL”jPEN 1 

40 L0CATE 11,7 ! PR I NT "1.Editeur de [24063 
textes" 

50 PRINTsPRINT TAB<11):"2.Editeur d [37733 
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e caractères" 

60 PRINTsPRINT TAB <11) 5 ”3.Imprimer” [21233 
70 PRINT:PRINT:PRINT TAB(9) 5 “Votre [30253 
choix s ”5 

80 WHILE af = "":a$=1NKEYI!WEND C19993 
90 a=VAL(a*):IF a<l OR a>3 THEN a*= [21403 
" " ! GOTO 80 

100 PRINT a [4013 
110 ON a GOTO 120,130,140 [8313 
120 RUN”edittex" E5283 
130 RUN"editcar” [7353 
140 RUN”pr i nter ’’ [1333 


10 '*#**«###*#*##*#*##*#* [6573 

20 '* EDITTEX * [7563 

30 '**#***#***#*###*#**## [6573 

40 DEFINT a,c ,>:,y [8203 

50 i*=CHR*<24) [11393 

60 DIM tf < 25) ! FOR i = l TO 25 st*(i)= [19433 

SPACEI(40)sNEXT 

70 SYMBOL AFTER 64 [12723 


80 SYMBOL 64,48,8,120,12,124,204,11 [21943 
8 

90 SYMBOL 123,12,16,60,102,126,96,6 [24583 
0 

100 SYMBOL 124,0,0,60,102,96,62,8,2 [17673 
4 

110 SYMBOL 125,48,8,60,102,126,96,6 [16313 
0 

120 MODE liINK 0 ,OïINK 1,23:INK 2,1 [22353 
Os BORDER 10 

130 PEN 1 : LOCATE 12,3ï PRINT 11 E DIT E U [32043 
R DE TEXTES" 

140 LOCATE 12,7s PRINT "1.Charger" [17643 
150 PRINT: PRINT TAB( 12! : ”2.Modif ier [25483 

I» 

160 PRINTiPRINT TAB(12) 5 "3.Cr(er• [21353 

170 PRINTsPRINT TAB<12) 5 "4.Sauver " [33583 

180 PRINTsPRINT TAB<12);"5.Catalogu [24253 
e disquette" 

190 PRINTsPRINT TAB(12);" 6 .Menu g(n [25933 
( r a 1 " 

200 LOCATE 11,21 * PR INT "Votre choix [21203 


210 a $="":WHILE a$="" ;a$=lNKEY$:WEN [18123 
D 

220 a=VAL(a<)s IF a<l OR a >6 THEN a* [12443 
= "": GOTO 210 

230 LOCATE 24,21:PRINT A [13203 

240 CLSsON a GOSUB 260,360,650,670, [18963 
760,800 

250 GOTO 120 [4293 

260 LOCATE 13,3:PEN 2:PRINT "CHARGE [39803 
R UN TEXTE" 

270 LOCATE 10,12s PEN iiINPUT"No« du [31483 
texte :",nf 

280 OPENIN n$+".tex" [11173 

290 FOR i=l TO 25 [3123 

300 LINE INPUT #9,t*(i) [16393 

310 t*(i)-MID*(t*(i),2,40) [11803 

320 NEXT i [3753 

330 CLOSEIN [7523 

340 GOSUB 780 [9213 

350 RETURN [5553 

360 LOCATE 11,12:PEN 2: PRINT"MODIFI [26013 
CATION DU TEXTE" 

370 LOCATE l,25sPEN IsPRINT" Veuil [65493 
lez patienter quelques instants" 


380 FOR i=1 TO 25:L0CATE l,i:PRINT [28113 
CHR*(1)}t*(i);:NEXT 

390 >! = 1 : y = 1 [8503 

400 LOCATE x , y : 1 *=MID$ ( t* (y ) , > 1 ,1 ) s P 129383 
RINT i t 5 CHRI < 1 ) 5 1$ J i $ $ : a$= " 11 
410 WHILE a*=""sa*=INKEY$:WEND [19993 

420 a=ASC( a$) :LOCATE x,y:PRINT CHRI [35503 

<l)|l*l 

430 IF a=9 THEN RETURN [16343 

440 IF a = 13 THEN x = 1 :y=y+ 1 : GOTO 540 [21653, 
450 IF a = 240 THEN y=y-1 s GOTO 540 [21263 

.460 IF a=241 THEN y = y + l:GOTO 540 [ 15493 

470 IF a=242 THEN x=x-l:GÛTO 540 [23393 

480 IF a=243 THEN x=x+l:GOTO 540 [19723 

490 IF a = 224 THEN GOSUB 590 [12833 

500 IF a=127 AND x>l THEN t*(y)«LEF C77B23 
T*(t*(y),x-2)+RIGHT$(t$(y),LEN(t$ (y 
))-x + 1)+" " j LOCATE 1,ys PRINT t#(y); 
s a=242:GOTO 470 

510 IF a=127 AND x=l THEN 400 [16173 


520 IF a= 16 THEN 1* (y ) =LEFT* <t$ (y ) , [69993 
x-l)+RIGHT*(t*(y),LEN<tl(y))-«)+" " 
sLOCATE 1 ,ys PRINT tl(y))sGOTO 400 
530 MIDt(ti(y),x,1) a al: LOCATE x,y:P [28223 
RINT CHR$(1 )5 af; s a=243:GOTO 480 


540 IF x=0 THEN x=40:y=y-l [13053 

550 IF x-41 THEN x=l:y=y+l [11013 

560 IF y=0 THEN y=25s GOTO 400 [16583 

570 IF y=26 THEN y=l [11063 

580 GOTO 400 [4523 

590 LOCATE 12,25 [4943 

600 PRINT "CODE ASCII : ":L0 [34253 

CATE 25,25s INPUT ,M ’,ca 

610 IF caOINT(ca) OR ca<0 OR ca>19 [18053 
1 THEN 590 

620 ai=CHR$<ca) [4713 

630 LOCATE 1,25s PRINT t*(25)j [10903 

640 RETURN [5553 


650 LOCATE 11,12s PEN 2:PRINT"CREATI [39223 
ON D'UN TEXTE" 

660 FOR i=1 TO 25:t*(i)=SPACE$(40 )1 [18493 
NEXT:GOTO 370 

670 LOCATE 14,3: P E N 2 s PR I NT "SAUVER [11543 
UN TEXTE” 

680 PEN 1 :LOCATE 10,12:INPUT"Nom du [23333 
texte :",nf 


690 OPENOUT n$+".tex" [9523 

700 FOR i=1 TO 25 [3123 

710 WRITE 49,ti(i) [10323 

720 NEXT i 13753 

730 CLOSEOUT [9023 

740 GOSUB 780 [9213 

750 RETURN [5553 

760 PEN 2 :LOCATE 9,3s PR INT"LI STE DE [58513 
S TEXTES PRESENTS":LOCATE 13,5:PRIN 
T "SUR LA DISQUETTE" 

770 PEN 1 : n f="*.t ex”: !DIR,ën $ [ 12473 

780 LOCATE 6,25:PRINT "Appuyer sur [42023 
une touche S.V.P.":CALL &BB06 
790 RETURN C 555 3 

800 RUN"menu [7073 


10 '********************* [6573 

20 '* EDITCAR * [5763 

30 '**#*#**************** [6573 

40 DEFINT a,b , i , j,m,n ,0 [9383 

50 SYMBOL AFTER 64 [12723 


60 SYMBOL 64,48,8,120,12,124,204,11 [21943 
8 
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70 SYMBOL 123,12,16,60,102,126,96,6 [24583 
0 

80 SYMBOL 124,0,0,60,102,96,62,8,24 [17673 
90 SYMBOL 125,48,8,60,102,126,96,60 [16313 
100 SYMBOL 253,255,128,128,128,128, [17803 

128.128.255 

110 SYMBOL 254,126,126,126,126,126, C19673 
126,0,0 

120 SYMBOL 255,129,129,129,129,129, £24163 

129.255.255 

130 INK 0,0:INK 1,23:INK 2,10:INK 3 [ 12483 
, 6 : BORDER 10 

140 GOSUB 660 [8813 

150 MODE 1 :PEN 1 [10363 

160 LOCATE 10,2:PEN 2 : PR INT "EDITEU [29993 
R DE CARACTERES":PEN 1 

170 LOCATE 12,6:PRINT"1.Charger" [20383 
180 PRINT:PRINT TAB(12);”2.Modifier [25483 


190 PRINT:PRINT TAB <12) 5 "3.Cr(er " [21353 

200 PRINT:PRINT TAB <12)j”4.Sauver" [33583 

210 PRINT: PRINT TAB ( 12) ; "5. Cat'aI ogu [24253 
e disquette” 

220 PRINT:PRINT TAB(12)?” 6 .Menu g(n [25933 
( r a 1 " 

230 LOCATE 10,20: PR I NT " Vot re choi>: [32133 
: “ 

240 ai = ” ” : WH ILE ai= ” ” : ai= INKEYi : WEN [18123 
D 

250 a = VAL< ai) : IF a<l OR a >6 THEN GO [11403 
TO 150 

260 LOCATE 23,20:PRINT a [6693 

270 ON a GOSUB 290,390,650,700,800, [14913 
850 

280 GOTO 150 [4153 

290 CLS:LOCATE 7,11 : PRINT "Nom de 1 [74963 
a police de caractîres":LOCATE 4,13 
: PR I NT charger <8 lettres ma>:.): 

11 ; : INPUT , ni 

300 OPENIN ni + ".CAR" [8833 

310 FOR i=0 TO 191:INPUT #9,IX<i):N [18873 
EXT 

320 FOR i=0 TO 191:INPUT #9,nX<i):N [21643 


330 FOR i=0 TO 

191:FOR 

u>. 

Il 

TO 

IX < i ) 

[35443 

:INPUT #9,hX <i, 

j):NEXT 

j ,1 




340 FOR i=0 TO 

191 : FOR 

j = l 

TO 

IX < i ) 

[36853 

: INPUT #9,roX<i , 

j):NEXT 

j j 1 




350 FOR i=0 TO 

1 91 : FOR 

j = l 

TO 

1 X < i ) 

[44163 

: I NPUT #9 , bX <i , 

j):NEXT 

J ) i 




360 CL OSE IN 





[7523 

370 GOSUB 830 





[8303 

380 RETURN 





[5553 

390 MODE 1 :j = 1 





[7773 

400 FOR i=0 TO 

191 




[6353 

410 i 1=3*< <i + l) 

MOD 8 >- 

1 



C11793 


420 IF i 1 = -1 THEN i 1 = 23 [11983 

430 LOCATE j , i1 :PEN 2:PRINT USING"# C48953 
# # " ; i i : P RIN T " : " ; : P E N 1 ï PR I NT CHRi<l 
) ; CHR'i < i ) : PEN 2 

440 GOSUB 860 [10483 

450 IF i1=23 THEN j=j+10 [9763 

460 IF < < i +1 ) MOD 32)00 THEN 630 [21733 

470 PEN 1 :LOCATE 1,25:PRINT SPC<40) [80253 
i : LOCATE 1,25:PRINT CHRI(242 )5 " = re 
tour [C0PY3=choix " } CHRi<243) } ” = s 
uite M=menu" 

480 aî="": WH ILE at="": ai= INKEYi:WEN [2571 3 
D:a=ASC<UPPERi<ai) ) 


490 IF a=77 THEN 640 
500 IF a=243 THEN CLS:j = 1 : GOTO 630 
510 IF a = 242 THEN CLS:i1=FIX<i/32)* 
32:IF i1 = 0 THEN 640 ELSE i = i1-33:j = 
1 : GOTO 630 

520 IF a O 2 2 4 THEN 480 

530 LOCATE 1,25 : PRI NT CHRi (18): LOCA 

TE 4,25:PRINT"Tapez le num[ro chois 

i <0-191): INPUT ”",i2 

540 IF i2<0 OR i2>191 OR i2<>INT<i2 

) THEN 530 

550 i1 = 3*(<i2 + 1) MOD 8 )-1 : IF i1 = -1 
THEN i1=23 

560 i3=i2: WHILE i2>31 :i2=i2-32:WEND 
:j = FIX<i 2 / 8)*10 + 1 

570 LOCATE j,i1 :PEN 2:PRINT USING"# 
##”;i3; : PRINT”:"; :PEN 1 1 PRINT CHRi< 
1);CHRI(i3):PEN 2 

580 WINDOW #3,j+5,j+8,i1-1,i1+lrCLS 
#3 

590 a=<j+5)*16:b=402-i1*16:il=i:i=i 

3:GOSUB 870:G0SUB 940:i=i1 

600 PEN 1:LOCATE 1,25:PRINT SPC<38) 

:LOCATE 4,25:PRINT "Confirmez-vous 

votre choix <0/N> ?" :ai = " " :WHILE ai 

= "":ai=UPPERi<INKEYi):WEND:a= < ai= "0 

" ): IF a = 0 THEN 470 

610 i=i3 

620 GOTO 1030 

630 NEXT i 

640 RETURN 

650 CLEAR: GOSUB 660:GOTO 390 

660 DIM 1 7. ( 192) ,n7. < 192> ,h7. < 192,18> , 

mX<192,18),bX<192,18) 

670 FOR i=0 TO 191:1X<i) = 10:nX<i)=3 
:NEXT i 

680 cari<0>=CHRi<253): cari<1)=CHRt< 
254): cari(2)=CHRi<255) 

690 RETURN 

700 CLS:LOCATE 7,11:PRINT "Nom de 1 
a police de caract3res":LOCATE 4,13 
: PR I NT "i sauver <8 lettres max.): 
";: INPUT “",nt 
710 OPENOUT nt+”.CAR" 

720 FOR i =0 TO 191 : PR INT #9,17. < i ) ; : 
NEXT 

730 FOR i=0 TO 191 :PRINT #9,nX<i)j: 
NEXT 

740 FOR i =0 TO 191 : FOR j = l TO 1 7. < i > 

:PRINT #9 , hX <i,j )5 :NEXT j, i 

750 FOR i=0 TO 191:FOR j=l TO lX<i) 

:PRINT #9,mX<i,j); :NEXT j,i 

760 FOR i =0 TO 191: FOR j = l TO 1 7. < i ) 

: PR I NT #9,bX(i,j)j:NEXT j,i 

770 CLOSEOUT 

780 GOSUB 830 

790 RETURN 

800 CLS 

310 PEN 2:LOCATE 7,2:PRINT "LISTE D 
ES POLICES PRESENTES":LOCATE 12,4: P 
RINT "SUR LA DISQUETTE”:PRINT:PRINT 
: PR I NT 

820 nî="*.CAR":PEN 1: 5DIR,«ni 
830 LOCATE 7,25:PRINT "Appuyer sur 
une touche S.V.P.":CALL !<BB06 
840 RETURN 
850 RUN"menu 

860 a=<j+5)*16:b=402-il*16 
870 PLOT a,b,2:DRAW a,b+14 


[15283 
C 224 2 3 
[53803 


[12243 

[58993 

[29803 

[27973 

[26883 

[64883 

[21573 

[32673 

[85863 


[5563 

[357 3 

[3753 

[5553 

[18023 

C36723 

[15443 

[21873 

[5553 

[78823 


[5673 

[23033 

[28443 


[43213 

[41673 

[36843 

[9023 
[830 3 
[5553 
[913 
[76843 


[18863 

[47243 

[5553 
[707 3 
[20363 
[8003 
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880 PLOT a+2 + 1 X(i)*2,b : DRAW a+2+lX< C19753 
i ) *2,b+14 

890 IF n a( i)= 3 OR n% <i> = 7 THEN PLOT C48973 
a, b + 14 i DRAW a,b+28:DRAW a+2+lX(i)* 

2, b + 28 1 DRAW a+2+1X(i)#2,b+14 
900 IF n 7. < i ) = 6 OR nX < i ) = 7 THEN PLOT C42323 
a, b : DRAW a,b-16:DRAW a+2 + 1 7. ( i ) *2, b 
-16: DRAW a + 2 + 1 7. ( i ) *2, b 

910 IF n X < i ) = 2 OR nX(i)=6 THEN PLOT C 2554 3 
a,b + 14: DRAW a+2 + 1 7. <i ) *2,b + 14 
920 IF n X < i ) = 2 OR n7.(i)=3 THEN PLOT C28273 
a , b-2! DRAW a+2 + 1%<i)*2,b-2 
930 RETÜRN E5553 

940 IF n7.1i > = 2 OR nX(i)=6 THEN 970 £8691 

950 FOR m= 1 TO 17.<i) Cl 349 3 

960 FOR n=1 TO 7 îPL 0T a+2*m,b+28-2* C23963 
n , VAL < MI DI< BI N!(MX(i,m),7),n,1)) : NE 
XT n , m 

970 FOR m =1 TO lX(i) Cl 3493 

980 FOR n = 1 TO 7:PL0T a+2*m,b+14-2* C2602 3 
n , VAL(MI DI(BI Ni ( ntX < i ,m> ,7) ,n,l)):NE 
XT n , m 

990 IF n X < i ) = 2 OR nX < i ) = 3 THEN 1020 C 1 577 3 
1000 FOR m= 1 TO 1 7. < i ) C 13493 

1010 FOR n=1 TO 7:PL0T a + 2*m,b-2*n, C45953 
VAL(MIDI(BINI<bX(i,m),7),n,l)):NEXT 
n, m 

1020 RETURN C5553 

1030 MODE liWINDOW #1,1,19,1,24s WIN C 3007 3 
DOW #2 20 24 1 4 

1040 LOCATE 2 0 ! 51 P E N 2 ! P RIN T CHRK2 C 834 1 3 
40) ; CHR! (241 ) ; CHR-t<242) ;CHR!(243) ; : 

PEN 1 : PR INT ": DCplacement du":LOCA 
TE 20,6:PRINT "curseur” 

1050 LOCATE 20,8:PEN 2:PRINT "CCOPY C61313 
3”;:PEN 1 ï PRINT Ajoute/enl3ve" :L 
OCATE 2 0,9 : P RIN T "le point" 

1060 LOCATE 20,11:PEN i:PRINT "<"ji C81613 
PEN 2:PRINT "E";:PEN 1 :PRINT”)fface 
r la lettre":LOCATE 20,12:PRINT "ac 
tuelle" 

1070 LOCATE 20,14:PRINT "<";:PEN 2: C44493 
PRINT ”C " ; : P E N 1 ; PR I NT "lhanger de 
lettre" 

1080 LOCATE 20,16:PRINT "Lettre <”; C34973 
:PEN 2:PRINT "P";:PEN 1 :PRINT")rCeC 
dente” 

1090 LOCATE 20,18:PRINT "Lettre ( " ; C41673 

:PEN 2:PRINT "S”;:PEN 1 :PRINT")uiva 

nte" 

1100 LOCATE 20,20:PRINT "Modifier ( C77113 
”; :PEN 2:PRINT”L"; :PEN l:PRINT")arg 
eur de":LOCATE 20,21 :PRINT"1 a lettr 
e" 

1110 LOCATE 20,23:PR INT "Modifier I C 72153 
* ; :PEN 2:PRINT”H"; :PEN 1:PRINT”)aut 
eur de : LOCATE 20,24 : PR I NT" 1 a lettr 
e" 

1120 GOSUB 1440 C8913 

1130 CLS #1 :CLS #2 :1imsup = 1:1iminf = C21513 
21 

1140 LOCATE 1,23:PRINT USING"Largeu C54653 
r :##"; 1X <i):PRINT USING"ConFigurat 
i on ::nX <i) 

1150 LOCATE 26,1:PRINT "CaractJre ’ : C 32673 

n 

1160 LOCATE 27,3:PEN 2:PRINT USING C38303 
"###";i; :PRINT ”:"î:PEN i: PR I NT CHR 
$11);CHR!Ii); 


1170 FOR m=l TO IX(i) 

1180 IF nX(i)=2 OR nX(i)=6 THEN lim 
sup=8:GOTO 1200 

1190 FOR n= 1 TO 7:L0CATE m,n:PRINT 
car I<VAL<MIDI<BINI <h7. < i ,m) , 7) ,n , 1 > ) 

); :NEXT n 

1200 FOR n= 1 TO 7:L0CATE m,n + 7:PRIN 
T c ar!< VAL(MID!(BINI<mX <i,m) ,7) ,n , 1 
) ) ); :NEXT n 

1210 IF nX<i)= 2 OR nX<i)= 3 THEN lim 
in F = 14 : GOTO 1230 

1220 FOR n= 1 TO 7:L0CATE m,n + 14:PRI 
NT car!<VAL(MIDI(BINI<bX(i ,m) ,7) ,n , 
1))); :NEXT n 
1230 NEXT m 

1240 PLOT 0,398 — 1 iminF*16,1 : DRAW IX 
(i)*16,398-liminf*16:PL0T IX<i>*16, 
398-1 imin F * 16 : DRAW 1X <i)* 16,398-< 1 i 
m s u p - 1 ) * 16 

1250 a=304:b=365:GOSUB 870:GOSUB 94 
0 


1260 x=l:y=limsup 

1270 PEN 3: LOCATE >: , y : PRINT CHR!<22 
);CHR!(1); : PR I NT carI<2); : PRINT CHR 
!(22);CHR!<0); :PEN 1 
1280 aI=IN K E Y!: IF aî = "" THEN 1280 E 


LSE a=ASC < a!):a!=UPPER!<a!) 

1290 IF a=224 THEN GOSUB 1560:G0SUB 
1510:GOTO 1490 

1300 IF a = 2 4 0 THEN GOSUB 1510 : y = y -1 


: GOTO 1450 

1310 IF a = 241 THEN GOSUB 1510: y=y +1 
: GOTO 1450 

1320 IF a = 242 THEN GOSUB 15101 
: GOTO 1450 

1330 IF a = 243 THEN GOSUB 1510:>:=>: +1 
: GOTO 1450 

1340 IF aI= "E" THEN GOSUB 1420:IF a 


=-l THEN FOR m=1 TO 1X<i):hX<i,m>=0 
:mX <i,m)= 0: bX <i , m)=0:NEXT: GOTO 1130 
1350 IF a!="C" THEN a=2:GQT0 270 
1360 IF aI= "P" THEN i = i-1 : IF i=0 TH 
EN i = 191 : GOTO 1130 ELSE GOTO 1130 
1370 IF a!= ”S" THEN i = i+1:1F i = 192 
THEN i = 1 : GOTO 1130 ELSE GOTO 1130 
1380 IF a I = " L " THEN LOCATE 1,2 5 : P E N 
1 : PR I NT "Nouvelle largeur (1-18): 

" ; : IN P U T "”,m:IF m<l OR m>18 THEN G 
OSUB 1440: GOTO 1380 ELSE 1X <i> =m: GO 
SUB 1440 : GOTO 1130 
1390 IF a ! = " H " THEN LOCATE 1,25:PEN 
1 :PRINT "Nouvelle configuration <2 
,3,6,7) : " ; : INPUT"",m: IF m<>2 AND 
m< >3 AND m<>6 AND m<>7 THEN GOSUB 1 
440:GOTO 1390 ELSE nX<i)=m:GOSUB 14 


40:GOTO 1130 


1400 IF a!= "M” THEN GOTO 150 
1410 GOTO 1280 

1420 GOSUB 1440:L0CATE 1,25:PRINT C 
HR!<18):LOCATE 1,25:PRINT "Etes-vou 
5 sur (e) (O/N) ?" 

1430 a!=UPPER!(INKEYt): IF a$<>"0" A 
ND a!<>"N" THEN 1430 ELSE a=(a!=”0” 
) 

1440 LOCATE 1 ,25s PR I NT CHR!(18);:L0 
CATE 29,25:PRINT "("; :PEN 2:PRINT”M 
"; : P E N 1 : PR I NT " )enu":RETURN 
1450 IF >; = 0 THEN >: = 1 X < i ! : GOTO 1490 
1460 IF >! = 1 X ( i ) +1 THEN >: = 1 ï G0T0 149 


Cl 3493 
C 2249 3 

C32603 

C36073 

C15913 
C46033 

C 3713 
C 57033 


C 24323 

C16693 
C36603 

C 26413 
C 2779 3 
C33703 
Cl 8203 
C 26283 
C17613 
C81103 

C1289 3 
C 4 2 4 3 3 

C43823 

C90023 


C118923 


C1149 3 
C 347 3 
C 6 7 6 0 3 


C 31 2 9 3 


C 6508 3 

C 2075 3 
C 21413 


30 





0 

1470 IF y=limsup-l THEN y=3iminf;G0 [4001 3 
TO 1490 

1480 IF y=liniinf + l THEN y=limsup [14083 
1490 PEN 3: LOCATE >i ,y : PRINT CHR*<22 [36603 
>;CHR*(1) î SPRINT car* < 2) 5 : PRINT CHR 
*<22> ; CHR* <01 j :PEN 1 

1500 GOTO 1280 [3473 

1510 IF y <8 THEN m=y:oct*=BIN*(hX<i [17863 
7) î GOTO 1530 

1520 IF y< 15 THEN nt=y-7: oct*=BIN* U [32483 
X( 1,«),7) ELSE m=y-14s oct*= 8 IN* (b% ( 

M>.7> 

1530 PEN 1 : LOCATE >: , y ï P RIN T car*(VA [ 16883 
L(MID*<oct*,m,l)))s 

1540 PLOT 304+2*)! ,361+(32-2*y) , VAL< [13553 
MID*(oct*,m, l )) 


1550 RETURN [5553 

1560 IF y<8 THEN m=y ! oct*=BIN* (hX ( i C 17743 
,x) , 7): GOTO 1590 

1570 IF y<15 THEN m=y-7îoct*=BIN*(m [22343 
X(i ,>! ) ,7) s GOTO 1590 

1580 m=y-14 : oct*=BIN* (bX <i , >: ) , 7) [ 15933 

1590 MID*<oct*,m,l)=MID*<STR*<VAL<M 117563 
ID*<oct*,m,1)) XOR 1) ,2,1) 

1600 oct = VAL< \»<X"+oct*) [ 17353 

1610 IF y<8 THEN h7. < i ,x ) =oct i GOTO 1 C20113 
630 

1620 IF y < 3 5 THEN mX(i,)i)=oct ELSE [26263 
bX(i ,)i )=oct 

1630 RETURN [5553 


10 '*****************#*** [6573 

20 '* PRINTER * [6283 

30 '*#**#*******#**###*#* [6573 

40 MODE 1:BORDER 10s INK 0,0:INK 1,2 [3488 3 
3s INK 2,10 

50 DEFI NT i,j,t [8483 

60 SYMBOL AFTER 123 [14573 

70 SYMBOL 123,12,16,60,102,126,96,6 E24583 

0 

80 SYMBOL 125,48,8,60,102,126,96,60 [16313 
90 DIM t*(25),12(191),nX<191),hX<19 [30433 
1,18) , m7. < 191 ,18) , b*/. (191,18) 

100 CLS s LOCATE 12,3:PEN 2:PRINT "IM [36403 
PRIMER UN TEXTE" 

110 WINDOW #0,1,40,6,25 [8623 

120 LOCATE 2,7 s PRI NT "D{sirei-vous [57823 
le catalogue de 1 a ":PRINT:PRINT TAB 
(2);"disquette (0/N)?” 

130 n*= "": WHI LE n*=""sn*=INKEY*:WEN [25053 
Di IF UPPER*< n* ) = "0 11 THEN CAT 
140 PEN 1 :PRINT:PRINT TAB(2);"Nom d [4551 3 
u texte (8 lettres ma>:.) : "j s INPUT" " 


,nt 

150 OPENIN n * + ". T E X " [ 1064 3 

160 FOR i=1 TO 25s [3183 

170 LINE INPUT #9,t*(i) [16393 

180 t*(i)=MID*(t*(i),2,40) C11803 

190 M E X T i [3753 

200 CLOSEIN [7523 ’ 


210 PRINTsPRINT: PRINT TAF<2) ,* “Nom d [72783 
e la police de caractères "sPRINTsP 
RINT T A B ( 2); " (8 lettres ®ax.)i " j s I 
NPUT "",n* J 

220 OPENIN n*+".CAR" [8833 

230 FOR i=0 TO 191:INPUT #9,1 % <i): N C18873 
EXT 

240 FOR i =0 TO 191 s INPUT #9,nX(i):N [21643 


EXT 

250 FOR i=0 TO 191:FOR 
:INPUT #9,hX<i,j)sNEXT 
260 FOR i=0 TO 191:FOR 
:INPUT #9,mX(i,j)sNEXT 
270 FOR i=0 TO 191:FOR 
:INPUT #9,bX(i,j):NEXT 
280 CLOSE IN 
290 GOSUB 710 
300 PRINT #8,CHR*<27); 

310 WIDTH 255 

320 PRINT #8,CHR*(27);"A";CHR*<7)j 
330 FOR i=1 TO 25 


j=l 

TO 

1 X ( i ) 

j » i 
j = l 

TO 

I X ( i ) 

J » i 
j = l 

TO 

IX(i ) 

i,i 




340 t = 0: FOR j = l TO 40:t = t+ASC(MID*< 
t*(i),j,1)):NEXT j: IF t = 1280 THEN F 
OR i1=1 TO 3:PRINT #8,CHR*(13);CHR* 
(10); :NEXT: GOTO 690 
350 t = 0;j1 = 1 : FOR j = l TO 40 
360 t l=t:t=t+ 1X(ASC(MID* < t*(i),j,1) 
) ) 

370 IF t <128 AND J< >40 THEN 450 
380 IF j < >40 THEN t*tlsj*j-l 
390 PRINT # 8 ,CHR*(27) 5 "Y";CHR*(t);C 
HR*(0 )î 

400 FOR i 1 = j 1 TO j 
410 FOR i2= 1 TO 1 X<ASC(MID*<t*(i),i 
1 , 1 ))) 

420 PRINT # 8 ,CHR*(hX(ASC(MID*(t* <i) 
, i 1,1 ) > , i 2 ) ) ; 

430 NEXT i2 , i 1 
440 j1 = j +1 :t = 0 
450 NEXT j 

460 PRINT # 8 ,CHR*( 13)iCHR*( 10)j 

470 t = 0:j1 = 1 : FOR j = l TO 40 

480 tl=tit=t+lX(ASC(MID*(t*(i),j,1) 

) ) 

4 90 IF t<128 AND j<>40 THEN 560 
500 IF j < >40 THEN t=t1 : j = j-1 
510 PRINT # 8 ,CHR*(27);"Y "5 CHR*(t )5 C 
HR*(0)} 


520 FOR i 1 = j 1 TO j 
530 FOR i 2=1 TO 1X(ASC(MID*<t*<i) , i 
1 , 1 ))) 

540 PRINT # 8 ,CHR* <mX(ASC(MID*(t* (i ) 
, i 1 ,1 ) ) , i 2 ) ) i 

550 NEXT i2,il:jl=j+lît=0 
560 NEXT j 

570 PRINT # 8 ,CHR* <13);CHR*(10 )5 
580 t = 0:j1 = 1 : FOR j = l TO 40 
590 tl=t:t=t+lX(ASC(MID*(t*(i),j,l) 
) ) 

600 IF t<l28 AND j<>40 THEN 670 
610 IF j< >40 THEN t = t1 :j = j-l 
620 PRINT #B,CHR*(27);"K":CHR*(t);C 
HR* < 0); 

630 FOR i 1 = j 1 TO j 
640 FOR i2=1 TO 1X<ASC<MID*(t*<i) , i 
1 , 1 ))) 

650 PRINT # 8 ,CHR*(bX(ASC(MID* (t* <i) 

, i 1 , 1 ) ) , i 2 ) ) ; 

660 NEXT i2,il:jl=j+l:t=0 
670 NEXT j 

680 PRINT #8,CHR*(13)j CHR*(10); 

690 NEXT i 
700 END 

710 LOCATE 1,25: PR I NT CHR*<18); :LOC 
ATE 6,25:PRINT “Appuyer sur une tou 
ehe S. V.P. * : CALL 3<BB06 


720 RETURN 


[35443 

[36853 

[44163 

[7523 

[9433 

[12843 

[9573 

[18803 

[3123 

[75013 


[15743 

[21503 

[21673 

C3153 

[18663 

[11083 

[28953 

[23103 

[4973 

[8353 

[3703 

[15793 

[15743 

[21503 

[21693 

[3153 

[18663 

[11083 

[28953 

C35053 

[809 3 
[370 3 
[15793 
[15743 
[21503 

[21713 

[3153 

[26433 

[11083 

[28953 

[28693 

[8093 

[3703 

[15793 

[3753 

[1103 

C54243 


[5553 
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AMPIX 

Fonctionnant dans tous les modes 
écran et sur tous les CPC, ce pro - 
gramme est une merveille d'utili¬ 
taire graphique de tracé point par 
point. 



e premier programme 
Basic contient toutes 
les indications dé¬ 
taillées concernant l'emploi 
de cet utilitaire qui, rappe- 
lons-le, est un véritable bijou 
(profitons des soldes sur les 
superlatifs). 

Sauvegarde des 
listings 

Sauvez sous le nom évident 
de «AMPIX» le premier lis¬ 
ting Basic. Entrez ensuite par 
Amsaisie V.2 en vous repor¬ 
tant à son mode d'emploi, le 
long listing (21 ko) de codes 
hexadécimaux. Spécifiez 
&5100 comme adresse de 



début et sauvegardez par «S» 
le fichier binaire sous le nom 
«AM-PIX». Si vous ne sou¬ 
haitez pas saisir en une seule 
fois (on vous comprend) la 
totalité des codes, morcelez 
votre travail en créant plu¬ 
sieurs fichiers (AMP1, AMP2, 
AMP3, etc.). Ces derniers 
devront ultérieurement être 
chargés à la suite (LOAD 
"AMPl.BIN":LOAD 
"AMP2.BIN":LOAD 
"AMP3.BIN", etc.) après un 
MEMORY &50FF et sauve¬ 
gardés ainsi dans un fichier 
unique: 

SAVE "AM-PIX",b ,&5100, 
&5350 


Christophe Leclercq 


Caractères 

rencontrés dans 

Clavier 

Affichage 

ASCII 

ce listing 

CVIERTY 

AZERTY 

OASTTY 

AZERTY 

CHR$() 

{ 

{ 

è 

{ 

è 

123 

} 

> 

é 

} 

é 

1 25 


1 ' 

2 ' * * 

3 ’ * AMPIX * 

4 ' * Ecrit par C. LECLERCQ * 

5 ' * * 

6 ' #Dessin de R. ENJALBERT * 

7 ' #*#######*#*##*##***###*# 

8 ' Présentation 

9 ÎF HIMEM=ît50FF THEN 94 

10 SYMBOL AFTER 64 

11 SYMBOL 64,tc60,*(10,ïc78,5iC,lc7C,lcCC 
, 5(76,5(0 

12 SYMBOL 92, S<0 , 5(0, &3C, 5(66, 5(60 , ?<3E , 

5 ( 8 , ?< 18 

13 SYMBOL 123, & 6 , & 8 , î(3C, {<66 , &7E , 5(60 
, !< 3 C, S< 0 

14 SYMBOL 124 , 5(30, 5(8, S <66 , 5(66 , 5(66 , 5(6 
6 ,5<3E, 5(0 

15 SYMBOL 125,5(60,5d0,5(3C,5(66,5(7E,5< 
60,5(3C, 5(0 

16 MODE 2»INK 0,3*I NK 1,26îB0RDER 4 

17 PLOT 0,0,1:DRAWR 639,0:DRAWR 0,3 
98:DRAWR -639,0:DRAWR 0,-398 

18 PLOT 0,350:DRAWR 639,0 

19 FOR >: = 0 T0 31: PLOT 10+>i*20,398ï D 
RAWR 6 ,- 6 :DRAWR - 6 ,- 6 :DRAWR 6 ,- 6 :DR 
AWR - 6 ,- 6 :DRAWR 6 ,- 6 :DRAWR - 6 ,- 6 :DR 
AWR 6 ,- 6 :DRAWR - 6 ,- 6 :DRAWR -7,6:DRA 
WR 7,6:DRAWR -7,6:DRAWR 7,6:DRAWR - 
7,6:DRAWR 7,6:DRAWR -7,6:DRAWR 7,6: 
NEXT )! 

20 L0CATE 31,2:PRINT ” A N - P 
I X 

21 PLOT 248,384,0:DRAWR 136,0* PLOT 
248,366:DRAWR 136,0 

22 PLOT 248,386,1 :DRAWR 136,0:DRAWR 
6 ,- 6 :DRAWR 0,-8:DRAWR - 6 ,- 6 :DRAWR 

-136,0:DRAWR - 6 , 6 :DRAWR 0,8:DRAWR 6 

,6 

23 L0CATE 3,7 * PRINT "AM-PIX est un 
utilitaire graphique de trac( point 

par point . Un jeu de" 

24 L0CATE 3,8:PRINT "loupes plein C 
cran et une petite loupe vous perme 
ttra de modifier ou de cr(er" 

25 L0CATE 3,9s PRINT "des pages (cra 
n , des sprites ,.," 

26 L0CATE 3,12* PRINT "AM-PIX foncti 
onne dans tous les modes (cran et s 
ur tous les CPC < 464 , 664” 

27 L0CATE 3,I3:PRINT "et 6128 ) 

28 L0CATE 3,16* PRINT "Le menu princ 
ipal vous propose les facilites sui 
vantes :” 

29 L0CATE 4,18:PRINT "- le travail 
avec le lecteur de disquette" 

30 L0CATE 4,19 :PR1NT ”- la crtation 
de la palette de couleur" 

31 L0CATE 4,20 : PRINT la sdectio 
n du mode (cran" 

32 L0CATE 4,21 :PRINT ”- le travail 
sur le dessin" 

33 L0CATE 12,24:PRINT "presser sur 
ESPACE pour plus de renseignements 
sinon RETURN" 

34 IF INKEY <18)=0 OR INKEY < 6 )=0 THE 
N 94 

35 IF INKEY (47)00 THEN 34 

36 WIND0W #0,2,79,5,24:CLS:WIND0W # 


[8943 

[1753 

[5763 

[17033 

[1753 

[7333 

[8943 

[4343 

[10373 

[12723 

[17683 

[21043 

[18813 

[21983 

[17543 

[25443 

[35303 

[9193 

[138383 


[13593 

[20923 

[52273 


[77343 


[88633 

[45463 

[93463 


C 2 3 8 B 3 
[65933 


[44903 

[43943 

[36913 

[30213 

[62913 

[11193 

[6763 

[26493 
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0,1,80,1,25 

37 LOCATE 2,7 s P RIN T "Le format de 5 £81363 
auvegarde des p,ages (cran sur la di 
squette est le suivant 

38 LOCATE 4,10 : PR I NT "- La zone con C 6826 3 
tenue au>i adresses &C000 - &FFFF es 

t sauvegardée au format” 

39 LOCATE 6,11s PRINT "d'écran stand £16613 
ard . ” 

40 LOCATE 4,13s PRINT Le contenu £6883 3 
de l'adresse &FFEF représente le nu 

m{ro du mode (cran 

41 LOCATE 4,15s PRINT Le contenu £52923 
de l'adresse S< F F F 0 représente la va 

leur de 1 'encre 0 , ” 

42 LOCATE 6,16 s PR I NT "le contenu de [63053 
l'adresse 3< F F F1 reprCsente la vale 

ur de l’encre 1 , " 

43 LOCATE 6,17sPRINT ”... ” [ 18583 

44 LOCATE 6,18s PRINT “le contenu de [51843 
l’adresse &FFFF représente la vale 

ur de 1'encre 15 . " 

45 LOCATE 2,21 s PR I NT "La palette et C 6 310 3 
le mode écran sont ainsi sauvegard 

és avec la page écran . " 

46 LOCATE 24,24 s PR INT "appuyer sur [37063 
ESPACE pour continuer" 

47 IF INKEY<47)< >0 THEN 47 [6873 

48 WIND0W #0,2,79,5,24:CLS:WIND0W 41 [26493 
0,1,80,1,25 

49 LOCATE 2,6s PRINT “Dans le mode D [88833 
ESSINER , voici quelques explicatio 

ns @ propos du menu 

50 LOCATE 4,9 s PR I NT"ZOOM i effectue [49043 
un zoom de 2 sur le zoom actuel" 

51 PLOT 24,254: DRAWR 32,0 [8343 

52 LOCATE 4,11 s PR INT"M00Z : effectu [76583 
e un antizoom de 2 sur le zoom actu 

tl" 

53 PLOT 24,222s DRAWR 32,0 [8343 

54 LOCATE 4,13:PRINT"BACK : annule [95433 
les modifications effectuées sur la 

page écr an actuel le . " 

55 LOCATE 11 ,14 1 PRINT"si cette comm [73243 
ande suit une autre commande du men 

u ( excepté la" 

56 LOCATE 11,15s PRINT "commande LOU [36593 
P ) , elle est inefficace ." 

57 PLOT 24,190s DRAWR 32,0 [15113 

58 LOCATE 4,17 : PR I NT "VOIR s Visual [38643 
ise la page écran totale ." 

59 PLOT 24,126s DRAWR 32,0 [13143 

60 LOCATE 11,18s PRINT "le relacheme [65013 
nt de la touche RETURN désactive ce 

tte commande . ” 

61 LOCATE 4,20:PRINT "LOUP s active [31693 
la petite loupe < loupe fois 2 ) « 

II 

62 PLOT 24,78s DRAWR 32,0 [ 10843 

63 LOCATE 11,21 : PR I NT "l'appui sur [58383 
la touche TAB permet de la désactiv 

er " 

64 LOCATE 24,24:PRINT "appuyer sur [37063 
ESPACE pour continuer" 

65 IF INKEY <47)< >0 THEN 65 [6853 

66 WINDOW #0,2,79,5,24:CLSsWINDQW # [26493 
0,1,80,1,25 

67 LOCATE 2,5:PRINT "Les touches ut [77983 
iles dans le mode DESSINER sont les 


suivantes : " 

68 LOCATE 4,8:PRINT "Les FLECHES 
permettent de déplacer le curseur d 
u menu . ” 

69 PLOT 60,290,1 s DRAWR 64,0:DRAWR 0 
,-20:DRAWR -64,0:DRAWR 0,20 

70 LOCATE 4,10s PRINT "La touche RE 
TURN permet d'activer les commande 
s sous ce curseur ." 

71 PLOT 108,258:DRAWR 56 ,OsDRAWR'0, 
-20s DRAWR -56,0:DRAWR 0,20 

72 LOCATE 4,12ï PRINT "Le JOYSTICK 
permet de déplacer le curseur grap 

hique ." 

73 PLOT 52,226:DRAWR 72,0sDRAWR 0,- 
20:DRAWR -72,0:DRAWR 0,20 

74 LOCATE 4 ,14 : P RIN T "La touche ES 
PACE permet d'accélérer ce curseur 

II 

75 PLOT 108,194s DRAWR 56,0:DRAWR 0, 
-20:DRAWR -56,0:DRAWR 0,20 

76 LOCATE 4,16s PR INT "Le bouton FI 
RE permet d'afficher un point @ la 

position du curseur 

77 PLOT 108,162sDRAWR 40,0sDRAWR 0, 
-20s DRAWR -40,0:DRAWR 0,20 

78 LOCATE 4,18 : PR I NT "la touche C 
modifie la couleur du crayon ( cet 

te couleur est identique" 

79 PLOT 108,130sDRAWR 16,0:DRAWR 0, 
-20:DRAWR -16,0:DRAWR 0,20 

80 LOCATE 18,19s PRINT "8 celle du b 
ord de 1 ' écr an ) . " 

81 LOCATE 4,21 :PRINT "Les touches 
F2 F4 F6 F8 permettent de dépla 
cer la position du ZOOM" 

82 LOCATE 33,22s PRINT "par rapport 
@ la page écran totale ." 

83 PLOT 126,82:DRAWR 20,0:DRAWR 0,- 
20s DRAWR -20,Os DRAWR 0,20 

84 PLOT 158,82s DRAWR 20,0:DRAWR 0,- 
20sDRAWR -20,0sDRAWR 0,20 

85 PLOT 190,82:DRAWR 20,0:DRAWR 0,- 
20s DRAWR -20,0:DRAWR 0,20 

86 PLOT 222,82s DRAWR 20,0sDRAWR 0,- 
20:DRAWR -20,0:DRAWR 0,20 

87 LOCATE 25,24:PRINT "appuyer sur 
ESPACE pour finir" 

88 ' 

89 'Programme principal 

90 IF INKEY <47)00 THEN 90 

91 ' 

92 'Initialisation 

93 ' 

94 BORDER 0 

95 DIM col or<15): col or(0)=0:col or< 1 
)=15scolor<2)=13scolor<3)=26scolor< 
4)=l:color(5)=2:color<6)=3scolor<7) 
=6icolor<8)=9scolor<9)=llscolor<13) 
=16:color<14)=22:color<15)“26 

96 FOR cpt = 0 TO 15s INK cpt,color<cp 
t ) : NEXT cpt 

97 noml=SPACE$<8) 

98 IF HIMEMO&50FF THEN SYMBOL AFTE 
R 256s MEMORY S<50FFs LOAD"am-pi x . bi n” 
sCALL ï<9582 

99 MODE PEEK(S(9FF4) :modulo=2 A <2 A (2- 
PEEK<Sc9FF4> ) ) s INK 0,color <0) s INK 1, 
col or <1) 


[73143 

[29113 

[73453 

C42433 

[59863 

[24973 

[69303 

[23453 

[84963 

[23453 

C79723 


[36003 


[31063 

[80763 


[41903 


C46333 


[32523 

[27163 

[32393 

[33073 

[1173 

[19503 

[6683 

[1173 

[11843 

[1173 

[10083 

[124123 


[37783 

[9683 

C37553 


[52693 
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100 IF PEEK ( S< 9 F F 9 ) =0 THEN 5 GROS, 1 

101 ! VUE !menu=0 

102 GOSUB 134 

103 a 1=SP ACE I (41) ! CALL &A200,§a*,&C 


000:CALL 

ï<A200,ëa*. 

&COAO 


104 a*»* 

, CtCOFO 

CAT 

”:CALL 

&A200,fia* 

105 a * = " 

, &C 140 

LOAD 

”:CALL 

&A200, Sa* 

106 a * =" 

, 5< C19 0 

SAVE 

”:CALL 

S<A200 , Sa* 

107 a*»" 
,&C1E0 

FILENAME 

":CALL 

&A200,Sa* 

108 a * = "! 

1 " +nom*+SPACE*(9- 

-LEN (nom*) 


) : CALL *cA200,®a*,liC230 

109 FOR cpt=0 TO modulo-l!a*=" "+H 

E X * < c p t )! IF col or <cp t )>9 THEN a*=a* 
+STR*(col or(cpt))+” " ELSE a*»a*+" 
"+STR*(color<cpt))+" ” 

110 CALL &A200,8a*,?<C104 + 12#(cpt MO 
D 2)+80*<cpt\2)sNEXT cpt 

111 a * = ” DESSINER ” : CALL &A200,®a* 
,5<C12C 

112 a*»* VOIR " s CALL S<A200,§a* 
, 5<C 17C 

113 a *■* CLEAR ” î CALL î<A200,8a* 

, !<C 1CC 

114 ' 

115 'gestion MENU principal 

116 * 

117 i nv=1 1 GOSUB 124 

118 IF INKEY < 1 ) =0 THEN inv=0:G0SUB 

1 24> i nv = l:menu=<menu + l) MOD 4 îG 0SUB 
124 : FOR i=0 TO lOOsNEXT i 

119 IF INKEY < 8 )=0 THEN inv=0:G0SUB 
124:inv=l:menu =(menu+3) MOD 4:G0SUB 

124 : FOR i=0 TO 100:NEXT i 

120 IF INKEV (2)*0 THEN FOR i=0 TO 1 
50:NEXT is IF menu<>2 THEN ON menu+1 

GOTO 138,199,118,212 ELSE POKE &9F 
F4,(PEEK(lc9FF4)+2) MOD 3:GOTO 99 

121 IF INKEY <0)=0 AND menu=2 THEN P 
OKE &9FF4 , (PEEK (î<9FF4 ) +1 ) MOD 3: GOT 
0 96 

122 IF <INKEY< 6 > =0 OR INKEY <18)=0 0 
R INKEY <9)=0) AND menu=3 THEN 235 

123 GOTO 118 

124 a*»CHR*(32+inv>+SPACE*<10):CALL 
&A20Û , §a * , î<C000 + menu#20: CALL &A200 

, fia#, S<C0A0+menu*20 

125 a*=CHR*(32 + inv): IF menu=0 THEN' 
a*=a*+” FICHIERS • 

126 IF menu = 1 THEN a*=a*+" COULEURS 


C20553 
[9403 
C8953 
C39523 

[19433 

[11603 

[13863 

[22093 


[26733 


[65643 


[29423 


[16133 

[10503 

[24563 

[1173 

[14643 

[1173 

[813 

[33413 


[41923 


[74933 


[36833 

[34553 

[4153 

[57573 

[22303 

[16653 


127 IF m e n u = 2 THEN a*=a*+" MODE " + [26473 

HEX*(PEEK <&9FF4>,1)+“ " 

128 IF menu=3 THEN a*=a*+" DESSINER [12773 


129 CALL ?<A200,«a*,î<C050+menu*20 [ 19843 

130 RETURN [5553 

131' [1173 

132 'affichage du menu principal [12633 

133 ' [1173 

134 a * = " FICHIERS COULEURS MODE [76503 
"+HEX*(PEEK(&9FF4) ,1)+" DESSINER 

" : CALL Î<A200 , @a*, S<C050: RETURN ’ 

135 ' [1173 

136 'Gestion menu FICHIERS [19353 

137 ' [1173 


138 inv=0:G0SUB 124 :smenu=0:inv=1 : G 
OSUB 143 

139 IF INKEY(2)=0 AND smenu<3 THEN 
inv=0:GOSUB 143:inv=lssmenu=smenu+l 
:GOSUB 143:FOR i=0 TO 100:NEXT i 

140 IF INKEY(01=0 THEN inv=0:G0SUB 
143: IF smenu=0 THEN 117 ELSE inv-lî 
smenu=smenu-l:GOSUB 143:F0R i=0 TO 
100:NEXT i 

141 IF INKEY<18)=0 OR INKEY < 6 > =0 OR 
INKEY(91=0 THEN ON smenu+l GOTO 15 

2,157,170,178 

142 GOTO 139 

143 a*=CHR*(32+inv): IF smenu=0 THEN 

a *=a * + " CAT " 

144 IF smenu=l THEN a*=a*+” LOAD 

n 

145 IF smenu=2 THEN a*=a*+" SAVE 
n 

146 IF 5 fnenu =3 THEN a*=a*+" FILENAM 
E ” 

147 CALL &A200, êa* , ?<C0F0 + 5menu*80 

148 RETURN 

149 ' 

150 'Catalogue 

151 ' 

152 MODE 2s INK 0,0:INK 1,26:B0RDER 

13 : P RIN T CHR*(24)î SPACE* (31)}"C A T 
A L 0 G U E" j SPACE*(32 )5 CHR* <24 )5 : 
CAT :LOCATE 28,25:PR I NT CHR*(24)j* a 
ppuyer sur une touche “ ; CHR* < 24 ) ; : G 
OSUB 195 

153 IF INKEY*»*" THEN 153 ELSE 99 

154 ’ 

155 'LOAD 

156 ' 

157 IF n 0 mI= " " THEN GOSUB 1 

84 

158 IF nom*=" " THEN norl=" 

: GOTO 102 

159 MODE 2: INK 0,0:INK 1,26:B0RDER 

13 1 PRINT CHR*(24);SPACE*(26) 5 "E N R 
EGISTREHEN T" 5 SPACE*(27) ; 
CHR* <24):PRINT:PRINT “Nom du fichie 
r : " jnom*} ".SCR" 

160 PRINT:PRINT"L'ancien dessin ser 
a détruit . Continuez-vous ? 0/N : 

”; :GOSUB 195 

161 a*»INKEY*;IF a*»"" THEN 161 

162 a*=UPPER* <a*) : IF a*»*N* THEN 99 
ELSE IF a *<>"0" THEN 161 

163 POKE 5(9FF9,0: MODE PEEK ( &9FF4 ) : L 
OAD nom* + ".scr ",S<COOO: ! GROS , 1 

164 IF PEEK <ScFFEF) )-2 THEN 99 ELSE P 
OKE &9FF4,PEEK(&FFEF) 

165 FOR cpt = 0 TO 15: IF PEEK (?<FFFO+c 
pt)>31 THEN 99 

166 col or <cpt)=PEEK(«cFFFO+cpt): INK 
cpt, col or(cpt):NEXT cptiGOTO 99 

167 ' 

168 'SAVE 

169 ' 

170 IF nom*=" ” OR nom*="" T 

HEM GOSUB 184 

171 IF non*»"" THEN nom*=" 

: GOTO 102 

172 POKE &FFEF ,PEEK(&9FF4) 

173 FOR cpt = 0 TO 15 : POKE 5<FFF0+cpt, 
col or(cpt):NEXT cpt 




[28413 

[49463 


[49663 


[25553 


[3943 

[28763 

[19323 

[11813 

[19463 

[13783 

[5553 

C 11 73 

[8653 

[1173 

[131803 


[7783 

[1173 

[7783 

[1173 

[16603 

[24073 

[127733 


[66033 


[13713 

[36673 

[,35823 

[38613 

C34213 

C 2626 3 

[1173 

[2663 

[1173 

[18453 

[24073 

[9413 

[33573 
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174 î VUE : SAVE nom*+ H .scr”,b,&C000 ,& 
4000!GOTO 99 

175 ' 

176 'F1LENAME 

177 ' 

178 GQSUB 184 !G0SU8 134 

179 a*-"! ,, +nom* + SPACE*(9-LEN(nom*) 

) i CALL &A200, Sa*,&C230 

180 a*«“ FILENAME ”:CALL ï<A200,Sa* 
jïtClEOiGOTO 117 

181 1 

182 'entree du nom du fichier 

183 ‘ 

184 nom*="*iGOSUB 195:a*=SPACE* (41 ) 

: CALL &A200,Sa*,î<C050: a*=" î DONNER 
LE NOM DU FICHIER "!CALL &A200,Sa*, 
tcCOSO 

185 a*=” '’+nom*: CALL !<A200, Sa*, îcCO 

88!a*="i ”iCALL &A200, Sa*, «<C08A+2*L 
EN(nomt):a*=SPACE*(9-LEN(nom *))ï CAL 
L ?<A200, Sa*, ?<C08C+2*LEN (nom* ) 

186 a*=INKEY*: IF a*= ,,M THEN 186 

187 IF a*«CHR*U3) THEN RETURN 

188 IF a*=CHR*(127) AND LEN(nom*)>0 
THEN nom*=LEFT*(nom*,LEN(nom*)-1 )j 

GOTO 185 

189 a*=UPPER*(a*)tIF a*<”0” OR a*>*’ 
2" OR (a*) ”9" AND a< "A” ) THEN 186 

190 IF LEN(nom*)=8 THEN 186 

191 nom*=nom*+a*:GOTO 185 

192 1 

193 'Vide la queue des caractères 

194 ' 

195 a*=INKEY*jIF a*-"* THEN RETURN 
ELSE 195 

196 ' 

197 'Gestion du menu COULEURS 

198 ' 

199 inv = 0îG0SUB 124 î inv = l!smenu = 0ic 
pt=modulo-l:GOSUB 206:a*=SPACE*(41) 
s CALL &A200, Sa*, &C050 : a*= * ! UTILISE 
R LES FLECHES ET ESPACE ”sCALL Î<A20 
0,Sa*,&C050 

200 IF INKEY <1)=0 AND smenu<cpt THE 
N inv=0:G0SUB 206:inv=1ismenu=smenu 
+ 1:GOSUB 206 

201 IF INKEY(8)=0 THEN inv=0:G0SUB 
206sinv=11IF smenu = 0 THEN 102 ELSE 
£menu = smenu-1 ;GOSUB 206 

202 IF INKEY(0)=0 THEN inv=0:G0SUB 
206 î inv=1 ïIF smenu<2 THEN 102 ELSE 
5menu=smenu~2:GOSUB 206 

203 IF INKEY <2)= 0 AND smenu<(cpt-1 ) 
THEN inv=0:G0SUB 206iinv=l:smenu=s 

menu+2sGOSUB 206 

204 IF INKEY(47)=0 THEN colorlsmenu 
)=(color(smenu)+1) MOD 27 îINK smenu 
,coior(smenu):GOSUB 206 îG0SUB 206 

205 GOTO 200 

206 a*=CHR* < 32 + inv)+" ” + HEX*<smenu) 
iIF cd! or(smenu ) >9 THEN a*=a*+STR*( 
col or(smenu)) f" " ELSE a*=a*+" " + 5T 
R* (col or ( smenu ) ) + 11 11 

207 CALL 5<A200 , Sa* , &C104 +12* < smenu 
MOD 2)+80*(smenu\2) 

208 FOR i =0 TO 100:MEXT i;RETURN 

209 ' 

210 'Gestion du menu DESSINER 

211 * 


C25151 212 inv = 0:GOSUB 124 :inv=1 :smenu = 0: G C1963 3 

OSUB 217 

C1173 213 IF INKEY(2)=0 AND smenu<2 THEN [50863 

C 1 3333 inv=0:G0SUB 217: i nv = 1 : smenu = smenu + l 
[1173 -.GOSUB 217: FOR i=0 TO lOOsNEXT i 
[18273 214 IF INKEY(O)=0 THEN inv=0:G0SÙB [67653 

[26733 217:IF smenu=0 THEN 117 ELSE inv-li 

smenu = smenu-l:GOSUB 217: FOR i=0 TO 
[26883 100:NEXT i 

215 IF INKEY <18)=0 OR INKEY(6)=0 OR [21183 
[1173 INKEY(9)=0 THEN ON smenu+1 GOTO 23 

[20703 5,224,229 

[1173 216 GOTO 213 [4323 

[59893 217 a*=CHR*(32+inv): IF smenu=0 THEN [49693 

a*=a*+" DESSINER ":CALL &A200,Sa*, 

!<C12C 

218 IF smenu=l THEN a*=a*+" VOIR [30743 

[68753 ”:CALL &A200,Sa*,&C17C 

219 IF smenu=2 THEN a*=a*+” CLEAR [33873 
11 : CALL &A200, Sa*, &C 1CC 


220 RETURN [5553 

[13903 221 * [1173 

[11393 222 'VOIR [1353 

[32083 223 ' [1173 

224 ! VUE [4243 

225 IF INKEY(18)=0 OR INKEY <6> =0 OR [14973 

[22733 INKEY(9)=0 THEN 225 ELSE 102 

226 ' [1173 

[13093 227 'CLEAR [5633 

[7803 228 ' [1173 

[1173 229 a*-SPACE*<41)iCALL &A200 ,Sa*,&C [55403 

[27833 0501 a*=”! CONFIRMEZ VOUS 0 OU N 

[117 3 " : CALL J.A200 , Sa* ,&C050 : GOSUB 195 

[20433 230 a*=INKEY*: IF at="“ THEN 230 [ 13783 

231 a* = UPPER* < a*): IF a*="N M THEN 10 [44553 

[1173 2 ELSE IF a*<)"0" THEN 230 ELSE !FI 

[ 18223 N : G 0 T 0 99 

[1173 232 ' [1173 

[93563 233 'Programme de TRAÇAGE de point [21843 

en ZOOM 

234 ' [1173 

235 ! FIN : ! GROS,5 :GOSUB 195 [20033 

236 ' [1173 

[56163 237 'traitement du menu [2763 

238 ' [1173 

239 menu=0:cou = l: BORDER color(cou) [30393 

[66063 240 adsave'/.^COOO [5723 

241 CALL &A14C,adsaveX [16113 

242 GOSUB 276 [9213 

[63663 243 ! CURS,JOY<0),co:co=(co+1) MOD m [37723 

odulo:CALL &A2C0,SadsaveX 
244 IF JOY(0))15 THEN ! POINT, cou C11093 

[43623 245 IF INKEY(47)=0 THEN 243 [6713 


246 IF INKEY(62)=0 THEN cou=(cou+l) [44433 
MOD (2 / '(2 A (2-PEEK<&9FF4) ) ) ) : BORDER 

[40153 color(cou) 

247 IF INKEY (4)=0 THEN GOSUB 280 : iD [15263 
RO I TE : GOTO 240 

[4293 248 IF INKEY <20)=0 THEN GOSUB 280:i [ 18473 

C8964 3 GAUCHE : GOTO 240 

249 IF INKEY <11)=0 THEN GOSUB 280:1 [25303 
HAUTiGOTO 240 

250 IF INKEY ( 14)=0 THEN GOSUB 280:! [16143 
[41963 BAS : GOTO 240 

251 IF INKEY(0)=0 THEN menu=(menu+5 [25163 

[10893 ) MOD 6 

[1173 252 IF INKEY(2)=0 THEN menu=(menu+l C25043 

[21983 ) MOD 6 

[ 1 1 73 253 IF INKEY <18)=0 OR INKEY (6)=0 TH [34993 
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EN ON menu+1 GOTO 267,268,269,270,2 
71,285 

25 A 1F menu=0 THEN at=" ! MENU ” ELS C25543 
E a*=“ MENU ■ 

255 CALL &A200 , €al, adsave‘/. + 80 [21363 

256 IF menu= 1 THEN a*="! ZOOM " ELS [16113 
E at=" ZOOM " 


257 CALL &A200,£a$,adsaveX+160 [22723 

258 IF menu=2 THEN a*=" ! MOOZ “ ELS [19823 
E a*«“ MOOZ ” 


259 CALL ?<A200 , ëa-f, adsaveX+240 

260 IF menu=3 THEN al="! BACK " 
E a t=" BACK " 

261 CALL &A200, §a$ , adsaveX+320 

262 IF menu=4 THEN a*="! VOIR ” 
E a*»" VOIR » 

263 CALL &A200,@at,adsaveX+400 

264 IF menu*5 THEN a$="! LOUP " 
E a*»" LOUP " 


[22243 
ELS [16573 

[22243 
ELS [13483 

[22563 
ELS [17723 


265 CALL &A200, ëa$, adsaveX+480 

266 GOTO 243 

267 GOSUB 280îIFIN î{GROS,1ï GOTO 99 

268 GOSUB 280:iGROS,5iGOTO 240 

269 IF PEEK(&9FF9)=1 THEN 243 ELSE 
!MAIGR:GOTO 240 

270 11DEM:GOTO 240 

271 GOSUB 280: î VUE 

272 IF INKEY <18)=0 OR INKEY<6)=0 TH 
EN 272 ELSE {IDEM* GOTO 240 

273 ' 

274 'affichage du curseur 

275 1 


[23043 

[4223 

[28573 

[17263 

[22243 

[13603 

[15833 

[23413 


[1173 

[18483 

[1173 


276 ! CURS, 80* <2 A ( PEEK <5<9FF4> -PEEK U 
9FF9))),50\(2 A (PEEK(&9FF9)-1)),1 : RE 
TURN 

277 ' 

278 'sauvegarde du dessin modifie 

279 ' 

280 !CURSOFF:CALL &A16F: !MODIF:RETU 
RN 

281 ' 

282 'avec la loupe 

283 ' 

284 adsaveX=&C000:CALL &A14C,adsave 
X:GOSUB 276 

285 !CURS,JOY(0),co:co=(co+1) MOD m 
odulo:CALL &A2C0,ëadsaveX: CALL ScAOO 
0 

286 IF JOY(0)>15 THEN !POINT,cou 

287 IF INKEY<47)=0 THEN 285 

288 IF INKEY(62)=0 THEN cou=(cou+l) 
MOD (2 A (2 A <2—PEEK <&9FF4 ) ))) : BORDER 
col or <cou) 


289 IF INKEY <41=0 THEN GOSUB 280: iD 
ROITE:GOTO 284 


290 IF INKEY <20)= 0 
GAUCHE:GOTO 284 

291 IF INKEY <113=0 
HAUT:GOTO 284 

292 IF INKEY <141=0 
BASiGOTO 284 

293 IF INKEY <68)=0 

294 GOTO 285 


THEN 

GOSUB 

280 

THEN 

GOSUB 

280 

THEN 

GOSUB 

280 

THEN 
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Lecteurs, 
n'usez plus 
vos doigts! 


La logithèque de MICRO 

Une myriade de messages d'erreurs résulte de l'interminable saisie M A G 


Une myriade de messages d'erreurs résulte de l'interminable saisie 
d'un listing prometteur? Votre raison vacille? Nous avons de quoi 
apaiser vos tourments... 



Compilation à déguster de nos anciens numéros 



Prix dégressif 


O 3-4-5 : CPC painl, RSX music, Amsmoniteur, Spider man 2. 

Conjugaisons, Le bombardier, Dump secteur dise, Histogrammes en 3D, 
Récupération fichiers dise, Récupération fichiers prot, Biorythmes. 

O 6-7-8 Gloup, Taquin, Jacquet, A.P.I.D, Tennis 3D, Rallye 

66, Pronofoot, Musicsoft, Statistiques, Amstraaascii, Crayon opt. 1, 
Crayon opt. 2, Casse-briques, Géo de France, Extensions 464. Le 
compte est bon, Othello. 

O 9-10-11 : M A O, Gesrevue, Tralalgar, Fonctions, Amstermind, 

Labynotaure, Musithôque, Redéfinition, Morts célèbres, Verbes 
irréguliers. Mibbter. 

□ 1 2 -1 3-1 4 : Q-R, Loto, X-men, JPG-3D, Labybi. Gécamob, Gest 
dise, Startball, 3D château. Extra simon, Musithôques, RSX fenêtres. 
Calcul mental, Space invaders, Ahl Les vacances, Puissance quatre, Il 
pleut bergère, Scrolling / déconnect, Amstradian graffitis, 

d 15-16-17 : Debug, Espace, Grille, Runner, Sphéric, CPC tank, 
Amsbase, Géométrie. Oil panic, Blockhaus. Mirage IV, Warblock, Epson 
pack. Casse-tête, Carrés magiques, Vérificateurs V.2, Monnaies 
étrangères. 

Cü 18-19-20 : Oil, Crypto, Pacman, Module, Rundisc. Flipper. 
Dirutil, Amsynth, Bowling, G.M.D.B, Anagram, Fantômes, Refusnik, 
Heureduc, Culinaire. Infernal micro, Vérificateurs V.2, Gestion de 
fenêtres. 

CH 21-22-23 : Spot, astro, Pente, Combat, Othello, Amsynth. Ice 
trad. Boite à outils. Courbes math. Curseur Nash, Arcsin / arccosin, 
Vérificateurs V.2. 

n 24-25-26 : Belote, Compact, Tablatur, Analyser, Matrices, Cer- 
bert, Boursicote man, Flight simulator, Vérificateurs V.2. 


Bon de commande 


Profitez de nos 
disquettes 
hors-série 
listings encore 
disponibles! 

□ N°2 

□ N°6 


1 disquette : 140 f. 

2 disquettes : 120 f l'ex. soit 240 f. 

3 disquettes : 100 f l’ex. soit 300 f. 

4 disquettes : 90 f l'ex. soit 360f 
+ 90 f pour chaque disquette 
supplémentaire. 


0 27-28-29 : Inversion d'écran, OCM V.2, Expert, Pluies acides. 
Intro musicale, Musique, Facture 9. RSX écran, Simplification de 
fraction, Supercopter, Basic, Cauchemar, Machaon, Mouche. Amsaisie, 
Sprites, Vérificateurs V.2. 

O 30-31-32 : Verlan, Utilitaire 208 Ko, Chasse à l'homme, Ku kJux 
klan, Dreamwalker, Redstone, Gestion souris, Caracter. Dastroy*. 
Suprax, Star wars, Amsaisie. Vérificateurs V.2. 

O 33-34-35 : Bouncing créatures, Flésolution. Fenêtrad, Traceur 
de fonctions, Blabla technocratique. Color, Dix par dix, Amsaisie, 
Vérificateurs V.2. 

O 36-37-38 : Infernal castie. Animateur basic, Rock'n scroll, 
Fantôme. Tron, Dix par dix, Amsaisie, Vérificateurs V.2, Spy. 


□ N°7 

□ N°10 

□ Compilation R.S.X. 


O 39-40-41 : Lutins en goguette, Reftector, Fit! 464, Combat 
(6128), La roue de la fortune. Tri, Dix par dix, Amsaisie, Vérificateurs 
V.2. Mage (6128). 

O 42-43-44 : Sortilège 3D, Le taquin. Scribe, Fond. RSX 464. Le 
boa, Sectology, Play, Zoomgraf, Errors & Prl, Prlb, Pr2, Pr3, Le boa du 
bois boit. Dix par dix, Amsaisie, Vénficateurs V.2, Lubix (6128). 


Règlement par : O chèque bancaire, O chèque postal, CI mandat. 
Nom :_Prénom :_ 


□ PCW (120 f, 3 jeux 
+ 3 utilitaires). 


Adresse : 


AUTEURS, 

Nous attendons vos réalisations! Vous 
programmez et souhaitez faire profiter nos 
lecteurs de vos créations originales. Joignez 
à votre envoi, ce bon dûment rempli. 

Je soussigné :_ 

Adresse : _ 


Certifie sur l'honneur être l'auteur de ce 
programme et autorise MICRO MAG à le 
publier sous formes diverses (revues, sup. 
disquettes). 

Date et signature :_ 


1 


A retourner à : Laser Presse MICRO MAG, service diffusion, 
5/7, rue de l'Amiral Courbet, 94160, SAINT-MANDE. 


Tous nos listings publiés sont rémunérés. 
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DARK POWER 

La merveilleuse cité Andropolis est 
sous le joug d'impérialistes san¬ 
guinaires issus de la constellation 
de Beltor. Afin de stopper cette 
calamité, le C.A.S (Conseil des 
Affaires Spatiales) dépêche sur 
place le capitaine G. Brennus aux 
commandes du tout nouveau chas¬ 
seur PJ-4. 



S a mission, détruire 
l’alien suprême et malé¬ 
fique qui règne en des¬ 
pote sur cette perle de la 
galaxie et contrôle par son 
pouvoir obscur les hordes de 
pirates. Après chargement, le 
joueur qui dispose de cinq 
vies peut définir les touches 
(ou les positions du joystick) 
qui sont par défaut: 

- touches directionnelles: évo¬ 
lutions du chasseur; 

- barre d'espacement: tir des 
missiles; 

- RETURN ou ENTER: pause; 

- ESC: abandon, reprise du 
jeu par la barre d'espace. 

N.B. Certains ennemis doi¬ 
vent être touchés plusieurs 
fois avant d'être détruits. 


choix (DARK par exemple) le 
court listing Basic de charge¬ 
ment. Entrez ensuite par 
Amsaisie V.2 en vous repor¬ 
tant à son mode d'emploi, les 
deux longs listings de codes 
hexadécimaux. 


Nom 

Adr. déb. 

Long. 

DARKPOWl 

&4E20 

&1D92 

DARKPOW2 

&7530 

&23AE 


La longueur est ici précisée à 
l'attention de ceux qui envisa¬ 
gent raisonnablement de 
morceler leur travail en plu¬ 
sieurs fichiers qui devront 
ultérieurement être réunis en 
deux fichiers définitifs. 


Sauvegarde des 
listings 

Sauvez sous un nom de votre 


Luc Guillaume 
(programmation & musique) 

Hervé Guillaume 
(graphisme) 
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20 ‘ 

** 


** 

[ 104 J 

100 

' ** (c) Black System 1989 

*« 

[21113 

30 ' 

** 

DARK 

** 

C5943 

110 

• ** 

*« 

[1043 

40 ’ 

** 


** 

[1043 

120 

' *************************** 

[10513 

50 ' 

** 

POWER 

** 

[4723 

130 

' 


[1173 

60 ' 

** 


** 

[1043 

140 

MEMORY 19999 


[4243 

70 ' 

** 

by Luc ?< Herve 

** 

[8453 

150 

L0AD”!DARKPOWl.BIN",20000 


[19373 

80 ' 

** 

Gui 11aume 

** 

[8503 

160 

L0AD" iDARKP0W2.BIN” ,30000 


[21213 

90 ' 

** 


** 

[1043 

170 

CALL 30000 


[3093 
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A2 

2A 

28 

88 

2A j 9F 

4E78i88 

00 

98 

88 

CC 

88 

00 

001 62 

4E30i00 

00 

00 

00 

00 

00 

00 

00î 7E 

4E58i88 

88 

98 

88 

CC 

88 

00 

00) 52 

4E80î F3 

A2 

28 
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4E98iCC 88 30 88 00 88 00 00iA2 

4EA0:F3 A2 28 28 2A 00 6E 88t51 

4EA8)00 88 98 88 CC 88 00 00)IA 

4EB0)F3 A2 A2 28 28 00 6E 88iC5 

4EB8)88 88 98 88 CC 88 00 00iB2 

4EC0)F3 A2 28 A2 00 28 00 2A)85 

4EC8i00 88 00 88 00 88 00 00:76 

4 E DO r F 3 A2 28 A2 2A 28 CC 2A:FB 

4ED8)88 88 98 88 CC 88 00 00)D2 

4EE0»F3 A2 28 A2 2A 28 CC 2A)0B 

4EEB)00 88 98 88 CC 88 00 00>5A 

4EF0)30 30 CC CC 3F 3F 79 B6:16 

4EF8)3F 3F CC CC 30 30 00 00iA7 

4F00i30 20 CC 88 3F 2A 79 28)09 

4F08)3F 2A CC 88 30 20 00 00)1E 

4F10100 20 10 88 64 2A 9D 28:6A 

4F18)64 2A 10 88 00 20 00 00:2F 

4F20)00 00 00 00 00 00 00 00)6F 

4F28)00 28 00 88 00 20 00 00>A7 

4F30)20 00 98 00 6E 20 3D 88:38 

4F38)6E 20 98 00 20 00 00 00)90 

4F40s 00 00 00 00 00 00 00 00:8F 

4F48)00 00 00 00 00 00 CO C0:D7 

4F50:00 00 00 00 00 00 00 00:9F 

4F58:00 00 00 00 00 00 CO C0)E7 

4F60)F3 A2 A2 A2 28 28 2A 2A)82 

4F68:CC 88 98 88 88 88 00 00)53 

4F70)F3 A2 A2 A2 28 28 6E 00*1E 

4F78188 88 88 88 CC 88 00 00)43 

4F80:F3 A2 A2 A2 A2 00 28 00:B6 

4F88:2A 20 98 88 CC 88 00 00)55 

4F901F3 00 A2 A2 28 A2 2A 28)3A 

4F98)88 2A 98 88 CC 20 00 00)67 

4FA0:F3 A2 A2 00 28 00 3F 00:8D 

4FA8 î 88 00 98 20 CC 88 00 00)F3 

4FB0:F3 A2 A2 00 28 00 3A 00:7A 

4FB8:CC 00 88 00 88 00 00 00:13 

4FC0:F3 A2 A2 A2 28 00 2A 28:E2 

4FC8:88 2A 98 88 CC 88 00 00)07 

4FD0:A2 A2 28 A2 2A 28 CC 2A:AB 

4FD8)88 88 88 88 88 88 00 00)4F 

4 F E 0)F 3 A2 51 00 14 00 15 00:50 

4FE8:44 00 64 20 CC 88 00 00:53 

4FF0:51 A2 00 A2 00 28 00 2A:9C 

4FF8)00 88 98 88 CC 88 00 00)6B 

5000:A2 A2 28 A2 2A 28 CC 00:8C 

5008)98 88 88 88 88 88 00 00)90 

5010:A2 00 A2 00 28 00 2A 00:D6 

5018)88 00 98 20 CC 88 00 00:64 

5020:A2 A2 79 A2 2A 28 88 2As 13 

5028)88 88 88 88 88 88 00 00)AO 

5030:F3 00 28 A2 2A 28 88 2A:3D 

5038:88 88 88 88 88 88 00 00:BO 

5040)F3 A2 28 A2 2A 28 88 2A:91 

5048)B8 88 98 88 CC 88 00 00:44 

5050:F3 A2 28 A2 2A 28 88 2A;A1 

5058)CC 88 98 20 88 00 00 00)74 

5060:F3 A2 28 A2 2A 28 88 2A:B1 

5068:98 88 CC 88 64 20 00 00)98 

5070:F3 A2 28 A2 2A 28 88 2A:C1 

5078)CC 00 98 88 88 88 00 00)54 

5080)F3 A2 A2 A2 28 00 6E 88:7F 

5088)00 88 98 88 CC 88 00 00>FC 

5090)F3 A2 51 00 14 00 15 00:01 

5098)44 00 44 00 44 00 00 00)4C 

50A0:A2 A2 28 A2 2A 28 88 2A:A0 

50A8:88 8B 98 88 CC 88 00 00:A4 
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50B8)98 88 44 00 44 00 00 00)D0 
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Affublé de son inséparable hache, 
Hagar, l'ultime barbare avide de 
vengeance, a fait serment d'occire le 
dragon Blood qui se cache dans un 
temple marmoréen au plus profond 
d'une forêt maudite... 



ette forêt est hantée 
par des hordes de cra¬ 
pauds vénéneux, de 
chauves-souris assoiffées et 
de sorciers voués corps et 
âme au culte du dragon 
Blood. De plus, des crevasses 
laissent entrevoir le néant. 
Splendide et captivant! 

Après chargement, le barbare 
(neuf vies) peut définir les 
touches (ou les positions du 
joystick) qui sont par défaut: 

- touches directionnelles: évo¬ 
lutions du barbare; 

- barre d'espacement: lancer 
de la hache; 

- RETURN ou ENTER: pause; 

- ESC: abandon, reprise du 
jeu par la barre d'espace. 



de «HAGAR» le court listing 
Basic de chargement. Entrez 
ensuite par Amsaisie V.2 en 
vous reportant à son mode 
d'emploi, les trois longs lis¬ 
tings de codes hexadécimaux. 


Nom 

Adr. déb. 

Long. 

HAGAR1 

&2710 

&1C04 

HAGAR2 

&55F0 

&1720 

HAGAR3 

&6D60 

&2AC9 


La longueur est ici précisée à 
l'attention de ceux qui envisa¬ 
gent raisonnablement de 
morceler leur travail en plu¬ 
sieurs fichiers qui devront 
ultérieurement être réunis en 
deux fichiers définitifs. 


Sauvegarde des 
listings 

Sauvez sous le nom évident 


Luc Guillaume 
(programmation & musique) 

Hervé Guillaume 
(graphisme) 
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COMMANDEZ 
LES ANCIENS 
NUMEROS 


DES ARTICLES 
DE REFERENCE 
POUR VOTRE 
AMSTRAD 



N° 4 - Test du PCW 8256 
Alan Susar en direct du 
Sicob. Initiation à ('Assem¬ 
bleur (2 e partie). 


N° 11 - Le point sur les dis¬ 
quettes 3 pouces. Un week¬ 
end à Londres à gagner. Dos¬ 
sier imprimantes. 

N° 19 - Dossier bureautique. 
Pro : CAO-DAO II, CAO et 
Turbo Pascal. 


N° 5 - Le guide complet de 
l'acheteur : les orcfînateurs et 
leurs périphériques. Initiation 
à l'Assembleur (3 e partie). 


N° 13 - Pour passer de bon¬ 
nes vacances : pleins de jeux 
et de listings. 


N° 20 - Astuces de program¬ 
mation. Jeux CPC, PCW et PC. 
Pro : CAO et Turbo Pascal. 


N° 6 - Les premiers pas avec 
Locoscript. Le bouclier élec¬ 
tronique. 


N° 16 - Dossier Musique: 
Logiciels, matériels, listings. 
Pro : applications sur le PCW, 
Gestion plus Initiation à turbo 
Pascal 3. 

N° 21 - Dossier simulateurs. 
Pro : CAO et Turbo Pascal, 
PCW Graph. 


N° 7 - Amstrad Expo : le 
guide. La souris AMX en test. 
CP/M : et le CPC devint pro 
GSX. 


N° 17 - Enquête : Commer¬ 
cialisation du PC 1512. 


N° 22 - Dossier : les meilleurs 
jeux sportifs. Reportage : des 
souris et des CPC Testé sur 
PCW : Amx Desktop et Amx 
Mouse. 


N° 10 - Dessinez avec votre 
CPC : le dossier de tous les 
outils disponibles. Le nou¬ 
veau PCW 8512 au banc 
d'essai. Initiation au Logo (3 e 
partie). 

N° 18 - Banc d’essai le PC 
1512 analysé. Graphisme : les 
nouveaux logiciels sur CPC. 
Pro : CAO-DAO, PCW Point. 

N° 23 - Jeux d'échecs sur 
CPC, PCW, PC. En test : le PC 
1512 à disque dur, la DMP 
4000. 


N° 24 - L'avenir des jeux : 
logiciels, superproduction, 
jeux à grand spectacle. 

N° 29 - Douze idées de jeux 
cadeaux. L'informatique à 
l'école (suite). 


N° 25 - Pro : Masterfile, cen¬ 
tral point software. Flight 
simulateur. 

N° 30 - Et la B.D. devint 
micro. 


H ° 26 - Le nouveau PCW 
9512. Les traitements de 
texte. Les joysticks pour 
jouer. 

N° 31 ■ Tout sur l’Amstrad. 
Dossier freeware : des jeux 
gratuits...? Basgraph : les pos¬ 
sibilités graphiques du CPC. 
Mewlo : jeu exotique. 


N° 27 - L'informatique à 
l'école. Le guide d'achat des 
traitements de texte. 

N° 32 - Amstrad : l'ordina¬ 
teur à tout faire. L'Amstrad 
PPC : 1 er test en profondeur. 
Platoon : le jeu, le film. 


N° 28 - Le PC 1640 mis à nu. 
Graphisme et son : Amstrad 
côté musique. 

N° 33 - Jeux Amstrad 464 
chrono. Bouncing créatures : 
listing du mois. A vos maths. 


N° 34 - Amstrad : musicale¬ 
ment votre. Pirates ! Gros 
plan sur un jeu. Clock chess 
88 : le meilleur jeu d’échec 
sur PCW Amstrad CPC : des 
fenêtres en listing. 

N° 39 - Les logiciels éduca¬ 
tifs. Jeux: Baroudez en CPC. 
Le PC 200 Sinclair. 


N° 44 - Spécial radins: des 
jeux pour presque rien. Help : 
Total éclipse et les secrets de 
me. Listing du mois: Zoom- 
graph. Jeux : Airborne ranger, 
Dynamic, Techno cop. 


N° 35 - Dossier : Jeux de car¬ 
tes sur CPC. 

Amstrad en hyper-espace. 
Intégrés : à nouveau marché, 
nouvelles applications. 

N° 40 - Jeux : Rambo III, Bar- 
barian II. Listing : Reflector, jeu 
de réflexion. AMPRO: Dialo¬ 
gue PCW-288. 


N° 36 - Jeux de simulation : 
Amstrad Air Force. 8 impri¬ 
mantes pour votre Amstrad 
Soft : 2000 lieues sous les 
mers. 

N° 41 - Dossier: Dans le 
labyrinthe des compilations. 
Listing du mois: Combat. 
Votre Amstrad en fête. Jeux : 
Emmanuelle, Galactic con- 
queror. 


N° 37 - Spécial Help. 


N° 42 - Dossier: Faites le 
plein de RSX. Listing du mois : 
Sortilège. Jeux : Trivial Pursuit, 
Tiger road, etc. 


N ° 38 - Le dossier des Jeux 
Olympiques. 


N° 43 - Les joysticks les plus 
fous. Jeux Amstrad : Nether- 
world, Archon. Listing: Sec- 
tology. Dessin technique sur 
CPC. 
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Coupon à retourner à: Micromas, service diffusion, 5-7, rue de I*Amiral-Courbet, 94160 Saint-Mandé 


N° 45 - Auto Moto : Plein pot 
sur Amstrad. Listing du mois: 
Venusis. Technique: Dopez 
votre DMP 2000. Pro : Word- 
chart. Jeux : Sorcerer lord. 


COMMANDEZ 
VOTRE RELIURE 

85 F 
(80 F 

pour les abonnés) 


RELIURES Prix □ 85 F (80 F pour les abonnés). 

ANCIENS NUMEROS Numéros 1, 2, 3, 8, 9, 12, 14, 15 épuisés 

□ 1 numéro: 4, 5, 6, 7, 10, 11, 13, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 
36, 37, 38, 39, 40, 41, 42, 43, 44, 45 (entourez celui que vous désirez): 20F + 7F de frais de port: 27F. 

□ Collection: numéros 4, 5, 6, 7, 10, 11, 13, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 
35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45 : 460 F (envoi gratuit). 

□ Collection de 6 numéros au choix: 90F (envoi gratuit) □ Collection de 12 numéros au choix: 160F (envoi 
gratuit) 

Préciser S.V.P. : Êtes-vous déjà abonné: □ Oui □ Non 

Possédez-vous un ordinateur AMSTRAD : □ Oui □ Non 

Lequel . 

Conditions valables dans la mesure des stocks disponibles. 

NOM I I I I I I I I I I I I I I I I I I I I 1 PRENOM I I I I I I I I I I I I I I 


RUE I I I I I I I I I I I I I I I 
CODE POSTAL I I I I I I VILLE I I I I I 

Il II INI Date 

TAB PNS 

□ Chèque bancaire □ Chèque Postal □ Mandat 


i i i i i i i i i i i 



i i i i ... i i i 


Signature 
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LE SALON PO UR TOUS LES 
UTILISATEURS INDIVIDUELS 
DE LA MICRO-INFORMATIQUE 



SALON 

DELÀ 


MICRO 

13-15 OCTOBRE 1989 
ESPACE CHAMPERRET, PARIS 


Le Groupe Montbuild organise pour la première fois, 
à Paris, la grande manifestation réunissant tous les 
constructeurs et distributeurs en micro-informatique 
pour tous les publics: des adolescents aux 
professions libérales, des étudiants aux artisans et 
commerçants, des enseignants aux professionnels de 
la distribution. 

Le Salon de la Micro, pendant 3 jours, va regrouper 
les plus grandes sociétés nationales et internationales 
dans le domaine du matériel, des logiciels et des 
périphériques, et les principaux détaillants qui 
vendront aux meilleurs prix. 


100.000 visiteurs — et d’une centaine de salons 
professionnels et grand public dans le reste du 
monde. 

Le Salon de la Micro est le premier salon, en synergie 
avec le PC Show, conçu dans une dimension 
européene pour les exposants qui considèrent 1992 
comme une réalité. 


Pour en savoir plus et exposer au Salon de la 
Micro, contactez Melanie Parker ou Cécile Boré 
au 42.41.45.52 ou écrivez à Montbuild SA, 

55 avenue Jean Jaurès, 75019 Paris. 


Le Groupe Montbuild est l’organisateur du 
prestigieux PC Show à Londres — avec plus de 


Des animations qui concernent tous les passionnés de micro-informatique de loisirs seront organisées au cours du Salon. 

Les thèmes vous seront révélés dans le prochain numéro de MICRO MAG. 

AUCUN SALON INFORMATIQUE NE SE RESSEMBLE! 






